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IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAME: 
DATE RELEASED: 
NAINTAINER: 



AC-A877D-HC 

CVDZADO DZV-11 DIAG PRT1 
MARCH 1983 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DItilTAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND HAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERNS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1977J983 DIGITAL EQUIPMENT CORPORATION 
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5711 
5712 
5713 
57U 

5715 1. ABSTRACT 

5716 

5717 THE FUNCTION OF THE DZV11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 

5718 ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE DZV11 

5719 OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 
5720 

0721 PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EITHER 'AUTO SIZING* OR 

5722 INPUT F»OM THE USER ON THE CONSOLE BY HAVING SUOOsI AT START TIME. AUTO 

5723 SIZING WILL BE DONE ONLY THE FIRST TINE THE PROGRAM IS STARTED AND 

5724 SW07=0 AND SUOO^O AND SU03>0. THE AUTOSIZER IS DESIGNED TO DETECT 

5725 DZV11 DEVICE ADDRESSES AND VECTORS ONLY. ALL REMAINING PARAMETERS UILL 

5726 DEFAULT TO CERTAIN VALUES (SEE SEC. 8. 5). CONSOLE INPUT MAY BE CONTROLLED 

5727 AT ANY START TINE THROUGH THE USE OF SU00.SU03, SW04« AND SW06 (SEE SEC. 

5728 4.1.1 FOR A DETAILED DESCRIPTION OF THESE SWITCHES). 
5729 

5730 CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS (CVDZA.CVDZB.AND CVDZC) 

5731 ONE SYSTEM NODULE FOR DEC X/11 (CXDZBA), AND AN OVERLAY FOR ITEP (CVDZD), 
5732 

5733 CVDZA TOGETHER WITH CVDZB WILL TEST ALL LOGICAL FUNCTIONS OF THE DZV11 

5734 INTERFACE MODULE. 

5735 CVDZC IS DESIGNED AS A NON-CHAINABLE STANDALONE DIAGNOSTIC PROVIDING THE 

5736 OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL DZV11 EIA CABLES. 
5737 

5738 

5739 • ;;GPA • 

5740 ft NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SBC 11/21) * 

5741 ft BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN • 

5742 ft IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: • 

5743 ft ft 

5744 ft LSI 11. 11/2. AND 11/23 SBC 11/21 ft 

5745 ft ft 

5746 ft CSR RANGE: 160010 TO 167770 174000 TO 177770 • 

5747 ft VECTOR RANGE: ZOO TO 770 300 TO 370 ft 

5748 ft AUTO-SIZING FOR... ft 

5749 ft ...CSR AND VECTOR: ENABLED DISABLED • 

5750 ft ::GPA ft 
5751 

5752 
5753 
5754 
5755 

5756 THE RELEASE CVDZAD WAS DUE ro THE FACT THAT THE OZVll DIAGNOSTIC 

5757 WAS UPDATED TO SUPPORT THE USER FRIENDLY DIAGNOSTIC INTERFACE. 
5758 

5759 2. REQUIREMENTS 

5760 

5761 2.1 EQUIPMENT 

5762 

5763 AN LSI11 CPU WITH MINIMUM 4K OF MEMORY. 

5764 ASR 33 (OR EQUIVALENT FOR CONSOLE) 

5765 DZV11 INTERFACE MODULE 

5766 H329 STAGGERED TURNAROUND CONNECTOR. 
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SEQ 3 



, ^767 H32S CABLE TURNAROUND CONNECTOR. 

^769 NOTE: A STAGGERED TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 

5770 PARITY LOGIC. 

5772 
5773 
5774 
5775 

5776 2.2 STORAGE 

ll(Jj> PROGRAM WILL USE ALL 4K OF NEHORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 

5779 RESIDE. LOCATION 1500 THRU 1740 ARE ESPECIALLY TO BE NOTED AND TO BE 

5780 UNTOUCHED BY OPERATOR AFTER P.^RAMETERS HAVE BEEN INPUT FROM CONSOLE 

5781 (SW00»1); OR AFTER THE *AUTO SIZING' HAS BEEN DONE. THESE LOCATIONS 

5782 NAY BE CHANGED IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 

5783 PARAMETERS ARE REQUIRED. 
5784 

5785 3. LOADING PROCEEDURE 

5787 3.1 METHOD 

5788 

5789 ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE ABSOLUTE 

5790 LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH AS DISK 

5791 .MAGTAPE. DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 

5792 WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 
5793 

5794 ABSOLUTE LOADER STARTING ADDRESS ^SOO 

5795 

5796 MEMORY • SIZE 

5797 

5798 4K 17 

5799 8K 37 

5800 12K 57 

5801 16IC 77 

5802 20K 117 

5803 24IC 137 

5804 28K 157 
5805 
5806 

5807 3.1.1 STARTING THE PROCESSOR AT THE ABSOLUTE LOADER STARTING ADDRESS WILL LOAD 

5808 THE DIAGNOSTIC INTO MEMORY. 
5809 
5810 
5811 
5812 
5813 

5|14 4. STARTING PROCEEDURE 

5816 A. SET SWR TO ZERO FOR 'AUTO SIZING' OR SET SWOO-1 FOR USER PARAMETER 

5817 INPUT FROM CONSOLE TERMINAL. NOTE: LOC. 000176 IS USED AS A SOFTWARE 

5818 SWITCH REGISTER IN ALL OF THE DZV11 DIAGNOSTICS. (SEE SEC. 4.1 ) 

5819 ON THE FIRST STARTUP OF THE DIAGNOSTIC IF SW07s1 AND SWOO^O THE 

5820 PROGRAM WILL ASSUME THAT THE STATUS TABLE HAS BEEN ALREADY BUILT 

5821 FROM A PREVIOUS DZV11 DIAGNOSTIC RUN. NOTE: ANY DZVll DIAGNOSTIC 

5822 WILL OVERLAY THE STATUS TABLE WHEN LOADED TO PRESERVE ITS CONTENTS 
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5823 AND THUS WILL NOT ALTER A PREVIOUSLY BUILT TABLE. 

5824 B. START THE DIAGNOSTIC AT LOC. 200(8). THE PROGRAM WILL TYPE MAINDEC 

5825 AND PROGRAM NAMES (IF THIS UAS THE FIRST START UP OF THE PROGRAM) 

5826 AND .*i.SO THE FOLLOWING: (ON THE FIRST PROGRAM RUN OR IF PARAMETERS 

5827 WERE CHANGED) 
5828 

5829 'HAP OF DZV11 STATUS' 

5830 1S00 160100 

5831 1S02 000300 

5832 1504 000017 

5833 1S06 017470 

5834 1S10 000000 
5835 

5836 THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS TABLE 

5837 STARTING AT ADD. 1500 IN THE PROGRAM. THE STATUS TABLE MUST BE 

5838 VERIFIED BY THE USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 

5839 TABLE SEE SECTION 8.4 FOR HELP. 
5840 

5841 THE PROGRAM WILL TYPE "RUNNING" AND PROCEED TO RUN THE DIAGNOSTIC. 
5842 

5843 4.1 CONTROL SWITCH SETTINGS 

5844 

5845 NOTE: THIS PROGRAM UTILIZES A SOFTWARE SWITCH REGISTER WHICH MAY BE 

5846 MODIFIED BY CHANGING LOC. 176 OR BY TYPING CONTROL "G" (^G) ON 

5847 THE CONSOLE TERMINAL WHILE THE PROGRAM IS RUNNING. 
5848 

5849 SW 15 SET: HALT ON ERROR 

5850 SU 14 SET: LOOP ON CURRENT TEST 

5851 SU 13 SET: INHIBIT ERROR PRINT OUT 

5852 SW 12 SET: INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 

5853 SW 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 

5854 SW 10 SET: ESLAPE TO NE)(T TEST 

5855 SW 09 SET: LOOP WITH CURRENT DATA 

5856 SW 08 SET: CATCH ERROR AND LOOP ON IT 

5857 SW 07 SET: NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING AND 

5858 IF SVOOsO THEN THE PROGRAM WILL ASSUME THAT THE STATUS MAP 

5859 HAS BEEN BUILT FROM A PREVIOUS DZV11 DIAGNOSTIC RUN. 

5860 SW 06 SET: RESELECT OZVITS DESIRED ACTIVE 

5861 SW 05 SET: RESERVED 

5862 SW 04 SET: SELECT DELAY PARAMETER (SEE SEC. 4.1.1) 

5863 SW 03 SET: EXTRA PARAMETER INPUT (SEE SEC. 4.1.1) 

5864 SW 02 SET: LOCK ON SELECTED TEST 

5865 SW 01 SET: RESTART PROGRAM AT SELECTED TEST 

5866 SW 00 SET: GET USERS PARAMETERS FROM CONSOLE 
5867 

5868 
5869 
5870 

5871 4.1.1 SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 

5872 

5873 SW 00 GET USERS PARAMETERS FROM CONSOLE. SETTING THIS SWITCH AT START 

5874 UP TIME ALLOWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 

5875 FOLLOWING PARAMETERS: BASE DEVICE ADDRESS, BASE VECTOR ADDRESS. 

5876 MODE OF OPERATION (EXTERNAL. INTERNAL. OR STAGGERED). AND THE 

5877 NUMBER OF DZVIVS THAT ARE RUNNING. USING THIS SWITCH ALONE WILL 

5878 DEFAULT THE FOLLOWING PARAMETERS: ALL 4 LINES ARE SET TO BE 
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5879 TESTED ON EACH DZVll. THE DEFAULT BAUD RATE IS SET AT 19.2 KBAUD 

SMO AND THE CHARACTER LENGTH FOR THE MAJORITY OF TESTING IS SET AT 

5881 EIGHT BITS PER CHARACTER WITH TWO STOP BITS. 

5883 SU 03 EXTKA PAHAHETER INPUT. SETTING THIS SWITCH AT START UP TINE 

5884 PROVIDES THE USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 

5885 TESTING AND TO SET THE DEFAULT BAUD RATE USED FOR THE MAJORITY 

5886 OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 

5887 ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 

5889 SW 04 SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS 

5890 DETERMINES THE LENGTH OF TIME THE PROGRAM STALLS WAITING FOR A 

5891 CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 

5892 COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 

5893 DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AN LSI 11 

5894 WITH MOS MEMORY. WHEN RUNNING THIS PROGRAM ON A PROCESSOR 

5895 WITH A FASTER MEMORY SPEED THIS DELAY COUNT SHOULD BE ADJUSTED 

5896 PROPORTIONATELY HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 

5897 2450 .TIME FOR 50 BAUD 

5898 1560 .-TIME FOR 75 BAUD 

5899 1120 :TIME FOR 110 BAUD 

5900 0750 ;TIME FOR 134 BAUD 

5901 0660 :TIME FOR 150 BAUD 

5902 0330 .'TIME FOR 300 BAUD 

5903 0150 :TIME FOR 600 BAUD 

5904 0060 :TIME FOR 1200 BAUD 

5905 0040 .'TIME FOR 1800 BAUD 

5906 0030 :TIME FOR 2000 BAUD 

5907 0020 :TIME FOR 2400 BAUD 

5908 0010 .-TIME FOR 3600 BAUD 

5909 0001 :TIME FOR 4800 BAUD 

5910 0001 :TIME FOR 7200 BAUD 

5911 0001 .-TIME FOR 9600 BAUD 

5912 0001 :TIME FOR 19.2 KBAUD 

5913 
5914 
5915 
5916 

5918 4.1.2 SWITCH REGISTER RESTRICTIONS 

5920 SW 06 RESELECT DZVll *S DESIRED ACTIVE. A MESSAGE IS TYPED OUT ON THE 

5921 CONSOLE TERMINAL ASKING THE OPERATOR TO TYPE A BIT MAP OF THE 

5922 D2VS DESIRED ACTIVE. USING THIS SWITCH ALLOWS LOCATION DZVAC TV 

5923 TO BE ALTERED (SEE SEC. 8.3 FOR A DESCRIPTION OF THIS LOCATION). 

5925 IF*THE^ 'devices CORRESPONDING TO THE DZVIVS NUMBERED ZERO, TWO. 

|926 AND FOUR IN THE DZVll STATUS MAP (LOC. 1500 THROUGH 1740) ARE TO 

5928 THlS^Iu'SErilTs'zERO. TWO. AND FOUR IN LOCATION PZVACTV. ALL 

5929 REMAINING DEVICES IN THE STATUS NAP WILL THEN NOT BE TESTED. 

593? SW 01 RESTART PROGRAM AT SELECTED TEST IT IS STRONGLY SUGGESTED 

5932 THAT AT LEAST ONE PASS HAS BEEN HADE BEFORE TRYING TO SELECT A 

5933 TEST THAT IS NOT IN THE ORDER OF SEQUENCE THE Jf^SON KING |S 
^34 THAT THE PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
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5935 NOTE: IF RUNNING MULTIPLE DZVll'S; THE DZVll YOU DESIRE TO BE 

5936 UNDER TEST MUST BE SELECTED BY THE USE OF SU06 BEFORE LOCKING ON 

5937 THE TEST. IN OTHER WORDS: EACH TIME THE PROGRAM IS STARTED; 

5938 THF. FIRST DZVll WILL BE SELECTED TO BE UNDER TEST UNLESS SU06 IS 

5939 USED TO SELECT ONLY ONE. 
5940 

5941 SU 09 LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF CALL 

5942 *SC0P1' IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 

5943 WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE 

5944 THUS IN BLOCK DATA, ONE PATTERN CAN'T dE SINGLED OUT. 

5945 THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 

5946 SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 

5947 TO BE USED AS A GENERAL USER CONTROL SWITCH. 
S948 

5949 SW 04 SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 

5950 AS TOO SHORT A DELAY WILL CAUSE VALID TESTS TO FAIL. 

5951 (SEE SEC. 4.1.1) 
5952 

5953 
5954 
5955 

5956 4.1.3 SWITCH REGISTER PRIORITIES 

5957 

5958 ERROR SWITCHES 
5959 

5960 1. SW 12 DELETE PRINT OUT/BELL ON ERROR. 

5961 2. SW 13 DELETE ERROR PRINTOUT. 

5962 3. SW 15 HALT ON THE ERROR. 

5963 4. SW 08 GO TO BEGINNING OF THE TEST (ON ERROR). 

5964 5. SW 10 GOTO NEXT TEST (ON ERROR). 
5965 

5966 SCOPE SWITCHES 
5967 

5968 1. SW 09 (IF ENABLED BY 'SCOPD. IF AN *•* IS PRINTED IN FRONT OF 

5969 THE TEST NO. ON AN ERROR REPORT (EX. *TEST NO. 10 ) SW09 IS 

5970 INCORPORATED IN THAT TEST AND THEREFORE SW09 IS ^USUALLY* THE 

5971 BEST SWITCH FOR THE SCOPE LOOP (SWU^O. SWIO^O, SW09-1. SWOS-O) 

5972 IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 

5973 ISOLATE SIGNAL PROBLEMS ON THE DZVll MODULE. 

5974 IF SW09 IS NOT ENABELED; AND THERE IS A •HARD* ERROR 

5975 (CONSTANT); SW08 IS BEST. 

5976 2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SW01 AND 

5977 SW02 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTED TEST. 

5978 OR ELSE SET SW14 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 

5979 SW14 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 

5980 ERROR OCCURS. 

5981 3. SW 14 LOOP ON CURRENT TEST. 
5982 

5983 4.2 STARTING ADDRESS 
5984 

5985 SA 200 - THE STARTING ADDRESS FOR ANY DZVll DIAGNOSTIC IS LOC. 200 
5986 

59B7 NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS UNDER 

5?S8 ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER •ALL* 

5989 .AVAILABLE DZVllS ARE TESTED THE PROGRAM WILL RETURN TO 'XXDP* OR 

5990 'ACT-IV. 
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5991 

5992 5. OPERATING PROCEEOURE 
5993 

5994 WHEN THE PROGRAM IS INITIALLY STARTED. MESSAGES AS DESCRIBED IN SECTION 

5995 FOUR WILL Bk PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 
5996 

5997 
5998 
5999 
6000 

6001 5.1 NORMAL START OF DIAGNOSTIC 
6002 

6003 ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200. IF SUOO'I 

6004 THEN THE FOLLOWING QUESTIONS ARE ASKED AND MUST BE ANSWERED: 
6005 

6006 "1ST CSR ADDRESS (160000:167770): " 

6007 YOU MUST TYPE IN THE FIRST DZVll CSR IN THE SYSTEM YOU WISH 

6008 TESTING TO BEGIN AT. RANGE: 160000:167770 
6009 

6010 "1ST VECTOR ADDRESS (300:770): " 

6011 YOU MUST TYPE IN ^HE VECTOR OF THE FIRST DZV11 IN THE SYSTEM 

6012 UNDER TEST. RANGE 300:770 
6013 

60U 'TMINTENANCE MODE 

6015 [EXTERNAL <H32S> (E)3 

6016 [INTERNAL <DZCSR03«1>(I)3 

6017 [STAGGERED <H329> (S)] : 

6018 TYPE 't" OR "I" OR "S" DEPENDING ON WHICH NODE YOU WISH TO RUN 

6019 IN. IF RUNNING 'tXTERNAL"; ALL SELECTED LINES MUST BE 

6020 TERMINATED BY AN H325 TEST CONNECTOR. 
6021 

6022 "f OF DZVll *S <IN 0CTAL> (1:20): " 

6023 TYPE TOTAL NUMBER OF DZVll 'S TO BE TESTED IN THE SYSTEM. RANGE 

6024 IS 1 THRU 20 IN OCTAL. 
6025 

6026 IF SW03:1 THEN THE FOLLOWING WILL BE PRINTED 
6027 

6028 "LINES ACTIVE BY BIT <1N OCTAL> (001:017):" 

6029 EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES NAY BE 

6030 SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 

6031 SELECTED (0-1. 2-3). 
6032 

6033 "DEFAULT BAUD RATE <IN OCTAL> (00:17): " 

6034 THIS GIVES THE USER A CHANCE TO CHANGE THE DEFAULT BAUD RATE 

6035 USED IN APP. 90X OF THE TEST. BAUD RATE CHOICES ARE: 

6036 "00"( 50 BAUD). "01 "( 75 BAUD). "02''( 110 BAUD). "03"( 134 BAUD). 

6037 "04"( ISO BAUD)."OS"( 300 BAUD)."06"( 600 BAUD) ."07" (1200 BAUD). 

6038 "10"(1800 BAUD). "11 "(2000 BAUD) ."12"( 2400 BAUD) ."13"( 3600 BAUD). 

6039 "14"(4800 BAUD )."15"( 7200 BAUD )."16"( 9600 BAUD) ."17"(19.2 KBAUD) 

6040 LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THC 

6041 TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 
6042 

6043 IT IS IMPORTANT TO NOTE THAT ALL DZVIVS IN THE SYSTEM MUST BE 

6044 CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. ALSO ALL THE EXTRA 

6045 PARAMETERS OTHER THAN CSR AND VECTORS ARE GIVEN TO THE EXISTING 

6046 DZVirS IN THE SYSTEM. 
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6047 IF THE NODE OF OPERATION IS DIFFERENT FOR EACH DZVll THIS MUST 

6048 BE PATCHED INTO THE CORRECT STATUS NAP ENTRY WHICH IS PRINTED AT 

6049 START TINE. AN ALTERNATIVE IS TO PUT SUOO'1 AT START TINE; 

6050 AHSUER QUESTIONS ABOUT DZV11 UNDER TEST AND INDICATE ONE DZV11 

6051 IN I HE SVSTEN. IF THE STATUS NAP IS TO BE "PATCHED" IT NUST BE 

6052 DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 
60S3 

60S4 
60SS 
6056 

60S7 S.2 PR06RAH AND/OR OPERATOR ACTION 

60S8 

6059 THE VARIETY OF PR06RAN CONTROL SWITCHES PROVIDED IN THIS DIAGNOSTIC 

6060 PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 

6061 SHOOTING TECHNIQUES. BEFORE THE USER ATTENPTS TO RUN THIS DIAGNOSTIC HE 

6062 SHOULD BECONE FANILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 

6063 RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 
WA 

6065 WHEN THE PROGRAN DETECTS AN ERROR THE TEST NUNBER AND PC WILL BE TYPED 

606«> OUT AND POSSIBLY AN ERROR NESSAGE (DEPENDING ON THE PARTICULAR ER^'OR). 

60f7 IF IT IS NECESSARY TO KNOW NORE INFORNATION CONCERNING THE ERROR REPORT 

6068 THEN LOOK IN THE PROGRAN LISTING FOR THAT TEST NUNBER AND THEN NOTE THE 

6069 PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECONE 

6070 CLEARER WHEN READING THE CONNENTS IN THE PROGRAN LISTING. 
6071 

6072 6. ERRORS 

6073 

6074 AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUNBER AND PC TYPED 

6075 OUT AT THE TINE OF AN ERROR (PROVIDING SW 13-0 AND SW 12=0). IN NOST 

6076 CASES ADDITIONAL INFORNATION Wli L BE SUPPLIED TO THE THE ERROR NESSAGE 

6077 WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 
6078 

6079 6.1 ERROR RECOVERY 

6080 

6081 IF FOR SONE REASON THE DZV11 SHOULD 'HANG THE BUS* (GAIN CONTROL OF BUS 

6082 SO THAT CONSOLE NANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 

6083 IS NECESSARY FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 

6084 HAPPEN. LOOK IN LOCATION 'STSTNN* (ADDRESS 1246) FOR THE NUNBER OF THE 

6085 TEST THAT WAS RUNNING AT THE TINE OF THE CATASTROPHIC ERROR. IN THIS 

6086 WAY THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZV11 WAS DOING AT THE 

6087 TINE OF THE ERROR. 
6088 

6089 7. RESTRICTIONS 

6090 

6091 7.1 STARTING RESTRICTIONS 

6092 

6093 SEE SECTION 4.1.2 

6094 THE STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW THE PROGRAN WAS 

6095 STARTED. ALSO IT IS INPORTANT TO USE THIS LISTING ALONG WITH THE 

6096 INFORNATION PRINTED ON THE TTY TO CONPLETELY ISOLATE PROBLENS. 
6097 

6098 
6099 
6100 
6101 

6102 7.2 OPERATING RESTRICTIONS 
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6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

61U 

6115 

6116 

6117 

6118 

6119 

6120 

6121 

6122 

6123 

6124 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 

6138 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 
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8. 
8.1 



8.2 



8.3 



PARAMETER MUST BE INPUT FROM USER OP APT IF "AUTO SIZING" IS NOT USED. 

MISCELLANEOUS 
EXECUTION TIME 



ALL DZV11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS' MESSAGE 
NO ERRORS AND SW12«0) WITHIN 2 MIN. THIS IS ASSUMING SWIli 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. 

PASS COMPLETE 



(PROVIDING 
A (INHIBIT 



NOTE: *EVERy* TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN AS IF 
sun (DELETE ITERATIONS) UAS UP (-1). THIS IS TO 'VERIFY NO ^HARD* 
ERRORS' AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
PROGRAM IS STARTED- WILL BE A 'QUICK PASS* UNTIL ALL DZVII'S IN SYSTEM 
ARE TESTED. UHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 

END PASS CVDZA-D CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 

NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY TPE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 



KEY LOCATIONS 
SLPADR (1252) 



NEXT (1362) 
STSTNN (1246) 
RUN (1412) 



STATUS MAP 
(1S00)-(1740) 



DZVACTV(1406) 



WILL RETURN WHEN 
LOOP ON TEST IS 



SBASE (1174) 



CONTAINS THE ADDRESS WHERE PROGRAM 
ITERATION COUNT IS REACHED OR IF 
ASSERTED. 

CONTAINS THE ADDRESS OF THE NEXT TEST TO BE PEFORMEO. 
CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED. 
THE BIT IN 'RUN' ALWAYS POINTS ONE PAST THE DZVll 
CURRENTLY BEING TESTED. EXAMPLE: (RUN) 
1412/0000000001000000 MEANS THAT DZV11 N0.5 IS THE DZV11 
NOW RUfMING. 



THESE LOCATIONS CONTAIN THE INFORMATION NEEDED TO TEST 
UP TO 16 (DECIMAL) DZV11S SEQUENTIALY. THEY CONTAIN THE 
CSR.VECTOR AND STATUS CONCERNING THE CONFIGURATION OF 
EACH 0ZV11. 

EACH BIT SET IN THIS LOCATION INDICATES THAT THE 
ASSOCIATED DZVll WILL BE TESTED IN TURN. EXAMPLE: 
(DZVACTV) 1406/0000000000011111 MEANS THAT DZVll NO. 
00.01.02.03.04 WILL BE TESTED. EXAMPLE: (DZVACTV) 
1406/0000000000010001 MEANS THAT DZ11 NO. 00.04 WILL BE 
TESTED. 

CONTAINS THE RECEIVER CSR OF THE CURRENT DZVll UNDER 
TEST. 
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6159 
6160 
6161 

6162 8.4 HORE ON TH«T 'STATUS TABLE* (1500-1740) 

6163 

6164 'HAP OF DZV11 STATUS* 

6165 1500 160100 

6166 1502 000300 

6167 1504 000017 

6168 1506 017470 

6169 1510 000000 
6170 

6171 

6172 THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 16 DZVll'S IN 

6173 THE SYSTEPKTHESE WILL FOLLOW UNDER THIS TABLE). EXPLANATION: 

6174 1500 160100 THIS IS THE SYSTEM CONTROL REGISTER FOR THE 1ST DZVll IN 

6175 THE SYSTEM. 

6176 1502 000300 THIS IS VECTOR *A* FOR THE FIRST DZVll IN THE SYSTEM. 

6177 1504 000017 THIS IS THE BINARY REPRESENTATION OF WHAT LINES ARE TO 

6178 BE TESTED. 

6179 1506 017470 THIS IS THE PARAMETER LOCATION USED IN MOST OF THE 

6180 TESTS. IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 

6181 17 (19. 2K BAUD) EIGHT BITS PER CHAR, AND TWO STOP BITS. 

6182 THE USER NAY ALTER THE STOP BITS AND THE SPEED. BUT THE 

6183 REMAINING PARAMETERS SHOULD BE LEFT ALONE. 

6184 THIS LOCATION IS USED TO LOAD THE DZVll LINE PARAMETER 

6185 REGISTER FOR EACH LINE. THE MEANING OF THE BITS SET IN 

6186 THIS LOCATION IS THE SAME AS THE FUNCTION OF THE RELATED 

6187 BITS IN THE DEVICE LINE PARAMETER REGISTER. 

6188 1510 000000 THIS LOCATION WILL CONTAIN EITHER ALL ZEROS INDICATING 

6189 THAT INTERNAL LOOP WAS SELECTED AS MODE OF OPERATION OR 

6190 IT WILL CONTAIN 100000 INDICATING THAT "STAGGERED NODE" 

6191 WAS SELECTED OR IT WILL CONTAIN 000200 INDICATING THAT 

6192 "EXTERNAL" WAS THE NODE SELECTED. 
6193 

6194 THE ABOVE IS REPEATED FOR EACH DZVll IN THE SYSTEN. THE TABLE IS 

6195 FILLED BY AUTO SIZING OR BY THE NANUAL PARAMETER INPUT PROGRAM 

6196 AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY USER: THE 

6197 LOCATIONS NAY BE ALTERED BY HAND TO SUIT THE SPECIFIC 
6196 CONFIGURATION. 

6199 
6200 
6201 
6202 
6203 

6204 8.5 •** METHOD OF AUTO SIZING 
6205 

6206 8.5.1 FINDING THE CONTROL STATUS REGISTER. 

6207 

6208 THE PROGRAM WILL START AT ADDRESS 160000 AND START 'REFERENCING* THE 

6209 ADDRESS IN THE POINTER. IF A NON-EX MENOFtY TRAP OCCURES. THF. POINTER 

6210 (HOLDING 160000) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 

6211 ADDRESS 167770 IS REACHED. IF A 'BUS REPLY' RESPONSE WAS ISSUED BY THE 

6212 DZVll (OR ANY OTHER DEVICE) (NO NXH TRAP). 'HASTER SCAN ENABLE" IS 

6213 ATTENPTED TO BE SET AND THE TCR BITS FOR ALL FOUR LINES ARE SET. "TRDV" 

6214 IS THEN TESTED TO BE SET AND 'ItASTER SCAN ENABLE" IS TESTED TO BE STILL 



L 1 



CVOZA-0 HACYU 30(1046) ll-HAR-SS 10:13 PAGE 3-9 
CVOZAO.PII 11-MAR-83 10:06 



SEQ M 



^21S SET. THE DIAGNOSTIC WILL THEN CHECK THAT AT LEAST ONE TCR BIT IS STILL 

^216 SET. IF ALL OF THE ABOVE WORKED, THIS DEVICE IS ASSlMED TO BE A DZV^I. 

6217 IF ANY OF THE ABOVE FAILED, UPDATING OF THE POINTER IS DONE AND THE 

6218 SEQUENCE !S REPEATED. 

6219 NOTE: IF THt PROGRAM DOES NOT FIND YOUR DZVll, SOMETHING IS WRONG AND 

6220 AUTO SIZING SHOULD NOT BE DONE. 
6221 

6222 8.S.2 FINDING THE VECTOR 

6223 

622A THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION lOT AND 

6225 \*2' (NEXT ADDRESS). BITU AND BITS (TX INTERUPT ENABLE AND NSTSCAN 

6226 ENABLE) ARE SET INTO THE DZVCSR. ALL TCR BITS ARE SET, A DELAY OCCURS, 

6227 AND IF NO INTERUPT OCCURES (BECAUSE OF A BAD DZV11) THE PROGRAM ASSUMES 

6228 VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. 

6229 ONCE THE PROBLEM IS FIXED, THE PROGRAM SHOULD BE SETUP AGAIN TO SET THE 

6230 CORRECT VECTOR. IF AN INTERUPT OCCURRED, THE ADDRESS TO WHICH THE DZV11 

6231 INTERUPTED TO IS PICKED UP AND REPORTED AS THE VECTOR. NOTE: ,F THE 

6232 VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU, THERE IS A PROBLEM AND 

6233 AUTO SIZING SHOULD NOT BE DONE. 
6234 

623S 8.S.3 PARAMETER ASSUMPTIONS. 

6236 

6237 SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 

6238 THE PARAMETERS: THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 

6239 RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND. 

6240 IN THIS WAY 9SX OF THE PARAMETER SETUP WAS DONE BY THE PROGRAM AND SX BY 

6241 YOU. 

6242 THEREFORE: 

6243 1) ALL FOUR LINES ARE ASSUMED TO BE TESTED. 

6244 2) DEFAULT BAUD RATE IS SET TO 17 (19.2 KBAUD). 

6245 3) MODE OF OPERATION IS "INTERNAL NODE". 
6246 

6247 FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4 FOR GREATER DETAIL. 

6248 

6249 

6250 

6251 

6252 9.0 RUNNING THE DZV11 DIAGNOSTIC UNDER APT 

6253 

6254 9.1.1 THE APT INTERFACE 

6255 

6256 THE DZV DIAGNOSTICS HAVE BEEN DESIGNED TO BE COMPATIBLE WITH THE APT 

6257 (AUTOMATED PRODUCT TEST) SYSTEM. THE DZV LOGIC TEST DIAGNOSTICS (CVDZA. 

6258 AND CVDZB) CAN BE RUN AS STANDALONE DIAGNOSTICS OR IN EITHER OF THE APT 

6259 MODES. CVOZC. HOWEVER IS DESIGNED AS A STANDALONE DIAGNOSTIC ONLY AND 

6260 REQUIRES DIRECT OPERATOR PARTICIPATION. 

6262 9.1.2 SETTING UP THE DIAGNOSTIC USING APT 

6263 

6264 THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION SUBTITLED " APT 

6265 HAILBOX-ETABLE*. THESE VARIABLES ARE: 
6266 

6267 SSWREG -(1142) USED AS THE SOFTWARE SWITCH REGISTER WHILE RUNNING 

6268 UNDER APT. 
6269 

6270 $VECT1 -(1170) USED TO SPECIFY THE FIRST VECTOR AD&RESS 
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6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6268 

6289 

6290 

6291 

6292 

6293 

6294 

629S 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

63U 

6315 

6316 

6317 

6316 

6319 

6320 

6321 

6322 

6523 

6524 

6525 

6526 
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SBASE -(1174) 

SDEVN -(V76) 

SCDU1 -(1200) 

ICDU2 -(1202) 

SDDUO -(1204) 
9.1.5 RUNNING UNDER APT 



n 1 



USED TO INDICATE BOTTOM ADDRESS OF OZVll UNDER TEST 

A BIT tMP REPRESENTING WHICH DZVll'S WILL BE TESTED 

USED TO INDICATE UHICH LINES TO RUN ON ALL DZVIVS 

USED TO INDICATE THE DEFAULT TEST MODE. SET TO 0 FOR 
INTERNAL TESTING, 200 FOR EXTERNAL LOOP BACK (H52S 
INSTALLED). OR SET TO 100000 FOR STAGGERED LOOP BACK 
TESTING (H529 INSTALLED). 

EACH OF THE tODU WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR DZV11, GOING UP TO 16 DZVll'S 



SEQ 



ALL OF THE VARIABLES MENTIONED IN SECTION 9.1.2 SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT. 

NOTE 

BE SURE SBASE POINTS TO THE FIRST DZV11 BEFORE RUNNING 

BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP THE STATUS 
TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 



10.0 PROGRAM DESCRIPTION 



THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SVSMAC 
PACKAGE (HAINDEC-11-DZQAC-C3). 

INITIAL ADDRESS OF THE STACK POINTER 1120 

MISCELLANEOUS DEFINITIONS 

GENERAL PURPOSE REGISTER DEFINITIONS 

PRIORITY LEVEL DEFINITIONS 

"SUITCH REGISTER" SUITCH DEFINITIONS 

DATA BIT DEFINITIONS (BITOO TO BIT1S) 

BASIC "CPU" TRAP VECTOR ADDRESSES 

BITS 15-11sCPU TYPE 

1 1 /04'01J 1 /05s02 , n /20*05 .11 MO 
11/70>06,PDQ'07,Q«10 
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6327 

6328 

6329 

6330 

6331 

6332 

6333 

633A 

633S 

6336 

6337 

6338 

6339 

63A0 

63A1 

63A2 

63A3 

63A4 

63A5 

6346 

6347 

6348 

6349 

6350 

63S1 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6574 

6375 

6376 

6577 

6378 

6379 

6380 

6381 

6382 



N 1 



SEO 13 



BIT 10«REAL TINE CLOCK 

BIT 9cFL0ATIN6 POINT PROCESSOR 

BIT 8*NEN0RY flANAGENENT 

HEH.TVPE BYTE — (HIGH BYTE) 
900 MSEC C0RE«001 
300 MSEC BIPOLAR«002 
SOO NSEC MOS>003 

MEH.LAST ADDR..-3 BYTES, THIS WORD AND L 

THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 

THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION IITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE I 
N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS 



EM 
DH 
OT 
DF 



;POINTS TO THE ERROR MESSAGE 

.•POINTS TO THE DATA HEADER 

: POINTS TO THE DATA 

.•POINTS TO THE DATA FORMAT 



INCREMENT THE PASS NUMBER (SPASS) 
IF THERES A MONITOR GO TO IT 
IF THERE ISN*T JUMP TO CYCLE 

THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAV<7 

AND LOAD THE ERROR FLAG ($ERFL6) INTO DISPLAY<15:08> 

THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

SWUsI LOOP ON TEST 

SWIIsl INHIBIT ITERATIONS 

CALL 

SCOPE ;;SCOPE=IOT 

ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 B 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 
N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CH 
N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

CALL: 

1) USING A TRAP INSTRUCTION 

TYPE .MESADR ;:HESADR IS FIRST ADDRESS Of AN 

OR 

TYPE 
MESADR 



ROUTINE USED TO SET UP THE DIAGNOSTIC VIA API. 
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63B3 

63M 

63BS 

6366 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 

6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 



B 2 

SEQ 14 



IF BIT7 IN THE ENVIRONMENT HODE (SENVN) BYTE IS SET. 
THE PROGRAM WILL LOAD ITS PARAMETERS. FROM THE ETABLE. 

ROUTINE USED TO "AUTO SIZE" THE DZV11 
CSR AND VECTOR. 

NOTE: THE CSR NAY BE ANY UHERE IN THE FLOATING 
ADDRESS RANGE (160000:167770) 
AND THE VECTOR MAY BE ANY UHERE IN THE 
FLOATING VECTOR RANGE (300:770) 



ttt*tttttttttt*tfttttttt TEST 1 tttttt.ttMtt.tt* 

THIS TEST PROVES THE BUS REPLY RESPONSE 
DURING A READ OR URITE TO THE FOLLOWING ADDRESS: 
OZVCSR, DZVRBUF. DZVTCR, DZVHSR 



«t****ft*ftttt*t*fttt**tt* TEST 2 
THIS TEST PROVES THAT BIT "DCLR" 
CAN BE SET AND THAT IT WILL CLEAR 
BY ITSELF 



ttto**ttfttt*tttttt«*t* TEST 3 ttt»t*t*tt»tttt« 

TEST TO VERIFY THAT THE R/U BITS OF THE 
DZVCSR REGISTER CAN BE SET. THEN VERIFY THAT 
THESE BITS CAN BE CLEARED. AND FINALLY. VERIFY 
THAT AFTER BEING SET AGAIN THEY CAN BE 
CLEARED BY A "DEVICE CLEAR". 
THE BITS TESTED ARE: HAINT. HSENAB* SILOEN. 
RIE. AND TIE. 



t***t**tttttt**tt*tt*** TEST 4 •••*t.t..ttt.tttttt«t< 

THIS TESTS THAT ALL OF THE TCR BITS 

CAN BE: SET. CLEARED. AND CLEARED BY A DEVICE CLEAR. 

THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 

BE SET. CLEARED. AND CLEARED BY A RESET. 



«tft****t*tt***ftttttt*t* TEST 5 •ttto«*t«t«t««< 

THIS TEST VERIFIES THAT 

BITS '"ROONE.TRDY. BIT9. BIT8. 

AND SILOAL" ARE READ ONLY AND THAT TRDY IS 

ZERO UNTIL A LINE IS SELECTED AND HSENAB IS SET. 



t*t***ttttttttttt*ttttt TEST 6 ttttttttt.ttttttti 

THIS TEST VERIFIES THAT: 

TIE.SILOEN.RIE.nSENAB.AND MAINT ARE THE 

ONLY R/U BITS IN THE DZVCSR AND THAT 

SETTING "DCLR" IN THE CSR UILL CLEAR THESE BITS. 



•t*t*«t«ttfttt*t***ttttt TEST 7 tttttt*«tti 

THIS TEST PERFORMS RESET TESTING AND 
TESTING OF READ ONLY REGISTER DZVRBUF 
AND TESTING OF WRITE ONLY REGISTER DZVLPR 
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6439 

6440 

6441 

6442 

6443 

6444 

644S 

6446 

6447 

6448 

6449 

64S0 

64S1 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6A88 

6489 

6490 

6491 

6492 

6493 

6494 



C 2 

SEO U 



TEST 10 .t«tt»tt.t»»,t.., 

THIS TEST PERFORMS RESET TESTING AND 
TESTING OF READ ONLY REGISTER D2VNSR 
AND TESTING OF WRITE ONLY REGISTER DZVTDR 

••*«ftft*t*ft*«****t***t** TEST 11 •*«*•*••***••••• 

VERIFY THAT SETTING "DTR" FOR A LINE WILL 
BRING UP "CO" AND 'IRING" FOR: 
THE SANE LINE IF IN EXTERNAL NODE 
THE STAGGERED LINE IF IN STAGGERED MODE. 
LINES ARE STAGGERED AS FOLLOWS: 
LINEO WITH LINE1; LINE2 WITH LINE3. 
THIS TEST IS ONLY RUN IF AN H32S.OR H329 
!S CONNECTED ON THE D2V UNDER TEST. 

•••ftt*fto**tt*******tt* TEST 12 
THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 
IS READY TO BE LOADED, AND THAT THE LINE SPECI- 
FIED IN BITS 8-9 OF DZVCSR CORRESPOND 
TO THE LINE SELECTED IN D2VTCR 



•t******t****tt*t***tt* TEST 13 

TEST TO TRANSMIT ONE CHAR AND 

RECEIVE ONE CHAR ON ONE LINE 

AT A TINE. THE CHAR IS "252" AND 

ALL SELECTED LINES WILL BE TURNED ON . 

THIS IS THE FIRST TIME ANY 
DATA IS CHECKED IN THE RECEIVER. 

USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
WHICH TRANSMITS A STEADY STREAM OF CHARACTERS. 

TEST 14 

THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 
DISABLED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 
TO ZERO FOR EACH LINE. 

THIS TEST ALSO VERIFIES THAT THE SILO CAN BE 
EMPTIED BY ISSUING A DEVICE MASTER CLEAR. 

••**ttt*tt**t*t*t*t*t*t TEST 15 

THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
CHARACTERS (FLAG NODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
(ONE LINE AT A TINE BASED UPON VALID LINES) 
THIS IS THE FIRST TIME THAT ALL DATA IS CHECKED 

**«*ttt**«*ft*t*«*t*tt** TEST 16 •♦•••tt*»t"t..ttt«.*«..»».. 

THIS TEST WILL PROVE THAT: 

1) THE TRANSMITTER 'BREAK BIT" WORKS 

?) THE RECEIVER CAN FLAG 'tRAMING ERRORS" 

3) THE RECEIVER CAN FLAG "PARITY ERRORS" 
ONLY ONE LINE AT A TIME WILL BE EXERCISED. 
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6A95 

6496 

6497 

6498 

6499 

6S00 

6501 

6502 

6503 

6504 

6S05 

6S06 

6507 

6506 

6509 

6S10 

6511 t 



0 2 

SEO 16 



TEST 17 

THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 
UHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 
BUT WILL INTERRUPT IF THE PROCESSOR STATUS 
ALLOWS INTERRUPTS. 

TEST 20 

THIS TEST VERIFIES THAT THE RECEIVER WILL 
INTERRUPT BEFORE THE TRANSMITTER EVEN 
THOUGH THE TRANSMITTER WAS ENABLED 
FIRST. SET PS TO HIGH (MASK INTERRUPTS); 
GET RDONE AND TRDY TO SET; 
SET TX IE AND RX IE; 

CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 



E 2 



CVOZA-D MACYII 30(1046) 11-NAR-83 
CVOZAO.Pn n-HAR-83 10:06 

8730 

(2) 
(2) 
(2) 
(2) 
(2> 
(2) 
(2) 
(2) 

(2) 000001 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(2) 001120 

(2) mooo 

(2) 000004 

(2) 
(2) 

(2) 000011 

(2) 000012 

(2) 000015 

(2) 000200 

(2) 177776 
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.TITLE CVDZA-0 
.-•COPYRIGHT <C> 1977.1983 
.••DIGITAL EQUIPMENT CORP. 
;*RAYNARO. MASS. 91754 



;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
.••PACKAGE (MAINDEC-11-DZ0AC-C8), OCT, 1982. 

STNsI 

; STARTING PROCEDURE 
;LOAD PROGRAM 
;LOAD ADDRESS 000200 
:PRESS START 
.•PROGRAM WILL TYPE 

;"CVDZAD/<200>/FOUR LINE ASYNC MUX TESTS. PART 1 OF 2" 
.•PROGRAM WILL TYPE "RUNNING" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS. PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
;AND THEN RESUME TESTING 

•REM ' 

•SWITCH REGISTER OPTIONS 



SEQ 17 



SW1 5^100000 

SWUs40000 

SW1 3-20000 

SW12«10000 

SW1 1*4000 

SW1 0^2000 

SW09«1000 

SW08»400 

SU07=200 

SW06B100 

SW05s40 

SW04-20 

SWOSslO 

SW02=4 

SW01=2 

SWOO'1 



sl.NALT ON ERROR 

si .LOOP ON CURRENi TEST 

si. INHIBIT ERROR TYPEOUT 

si .DELETE TYPEOUT/BELL ON ERROR. 

si. INHIBIT ITERATIONS 

si. ESC APE TO NEXT TEST ON ERROR 

si .LOOP WITH CURRENT DATA 

si Loop on error 

si! DO "AUTO SIZING" ON INITAL START UP. 

si. DESELECT SPECIFIC DEVICES 

NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 

si, SELECT DELAY PARAMETER 

«1. SELECT SPECIFIC PARAMETERS 

si. LOCK ON TEST SELECT 

si . RESTART PROGRAM AT SELECTED TEST 

si, SELECT DEVICE ADDRESS. VECTOR. ETC. 



.SBTTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER ••* 1120 ••• 
STACKS 1120 

ERRORS EMT ;;BASIC DEFINITION OF ERROR CALL 

SCOPES lOT ::BASIC DEFINITION OF SCOPE CALL 



.••MISCELLANEOUS DEFINITIONS 



HTs 
LFs 
CRs 
CRLFs 
PSs 



11 
12 
15 
200 
177776 



;C0DE FOR HORIZONTAL TAB 
;CODE FOR LINE FEED 
;CODE FOR CARRIAGE RETURN 
;COOE FOR CARRIAGE RETURN-LINE FEED 
.PROCESSOR STATUS WORD 
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10-1 




ruD7An P11 




BASIC DEFINITIONS 






17777A 


PSUs 


PS 






1 r » f f 


STKLNTs 


177774 ; 


iSTACK LIMIT REGISTER 


(9) 


1 77772 


PIRQs 


177772 


•PSnnRAM tllTFRBtlPT RFQiiFCT 




1 77570 


OSURs 


177570 : 


;HARDUARE SWITCH REGISTER 




177S76 
If tyiv 


ODISP« 


177570 ; 


:HARDWARE DISPLAY REGISTER 


(2) 








(2) 




.••GENERAL PURPOSE REGISTER DEFINITIONS 




000000 


ROs 


XO ; 


:GENERAL REGISTER 


(2) 


000001 

Vwvvv 1 


R1 = 


XI : 


.'GENERAL REGISTER 


(2) 


000002 


R2- 


X2 : 


;GENERAL REGISTER 


(2) 


00000^ 


R3s 


X3 : 


;6ENERAL REGISTER 


(2) 


000004 


R4s 


X4 : 


: GENERAL REGISTER 


(2) 




R5s 


X5 ; 


:GENERAL REGISTER 


(2) 


000006 


R6s 


X6 : 


: GENERAL REGISTER 


(2) 


000007 

www • 


R7s 


X7 ; 


:GENERAL REGISTER 


(2) 


000006 

vwWVW 


SPs 


X6 


: STACK POINTER 


(2) 


000007 


PCs 


X7 ; 


; PROGRAM COUNTER 


(2) 










(2) 




: •PRIORI TV LEVEL DEFINITIONS 


(2) 


000000 

wvwwwv 


PROS 


0 


:PRIORITY LEVEL 0 


(2) 


000040 


PRIs 


40 : 


:PRI0RITY LEVEL 1 


(2) 


000100 

WW I WW 


PR2s 


100 ; 


.•PRIORITY LEVEL 2 


(2) 


000140 

www 1 ~ w 


PR3* 


140 


;PRI0RITY LEVEL 3 


(2) 


000200 


PR4s 


200 : 


:PRI0RITY LEVEL 4 


(2) 


000240 

WWWfc~W 


PR5- 


240 : 


.•PRIORITY LEVEL 5 


12) 


000300 

WWVJPWV 


PR6s 


300 ; 


;PRIORITY LEVEL 6 


(2) 


000140 

wwv^^v 


PR7s 


340 ; 


.•PRIORITY LEVEL 7 


(2) 










(2) 




.••"SWITCH REGISTER" SWITCH DEFINITIONS 


(2) 


100000 

• www 


SUiSs 


100000 




(2) 


040000 

v^www 


SUU« 


40000 




(2) 


020000 

wtwwww 


SWT 3s 


20000 




(2) 


010000 

W 1 WW 


SU12* 


10000 




(2) 


004000 

w^ww 


SUIT* 


4000 




(2) 


002000 

Wft vw 


SUlOs 


2000 




(2) 


001000 

WW 1 WW 


SW09S 


1000 




(2) 


000400 

WWW" WW 


SU08s 


400 




(2) 


000200 

www* WW 


SU07S 


200 




(2) 


000100 

WW 1 WW 


SW06s 


100 




(2) 


000040 

wwww^w 


SUOSs 


40 




(2) 


000020 

WWWWftW 


SU04S 


20 




(2) 


000010 

WWWW 1 w 


SU03s 


10 




(2) 


000004 

wwwww^ 


SW02s 


4 




(2) 


000002 

WWWWWft 


SUOIs 


2 




12) 


000001 

WWWWW 1 


SUOOe 


1 




(2) 


001000 

WW 1 www 


SU9s 


SU09 




(2) 


000400 

www ^ WW 


SW8s 


SU08 




(2) 


000200 

WWWfc WW 


Stf7s 


SU07 




(2) 


000100 

www 1 WW 


SU6s 


SU06 




(2) 


000040 

WWWW^W 


SUSs 


SU05 




(2) 


000020 

WWWftW 


SU4s 


SU04 




(2) 


000010 

WWWW • w 


SU3s 


syo3 




(2) 


000004 


SU2s 


SU02 




(2) 


000002 


SWTs 


SU01 




(2) 


000001 


SWOs 


suoo 




(2) 











SEO 18 



6 2 
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(2) 

(2) 

(2) 

(2) 

(2) 

(2> 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2> 

(2) 

(2) 

(2) 

<2> 

(2) 

(2) 

(2) 

(2) 

(2) 

(2> 

(2> 

(2> 

(2) 

(2) 

(2) 

(2) 

(2) 

(2> 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2> 

(1) 

(1) 

(1) 

(1> 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<t> 

(1) 



100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 



005746 
005726 
010046 
012600 
024646 
022626 
000200 
000000 



10:13 PAGE 10-2 

BASIC DEFINITIONS 



SEQ 19 



;*OATA BIT DEFINITIONS IBITOO TO BITIS) 

BITISs 100000 

BITUs 40000 

BIT13* 20000 

BIT 12* 10000 

BIT11« 4000 

BITIOs 2000 

BIT09> 1000 

BIT08» 400 

BIT07S 200 

BIT06- 100 

BIT05: 40 

BIT04« 20 

BIT03* 10 

BIT02« 4 

BITOT s 2 

BITOOs 1 

B119- BIT09 

BITS* BIT08 



BIT7i 
BIT6* 



BIT07 
BIT06 



BITSs BIT05 

BIT4« BIT04 

BIT3: BIT03 

BIT2S BIT02 

BITIs BITOT 

BITO« BITOO 



;*BASIC 

ERRVEC- 

RESVEf:: 

TBITVEC 

TRTVECs 

BPTVEC« 

lOTVEC* 

PWRVECs 

EHTVECs 

TRAPVEC 

TKVEC* 

TPVECs 

PIRQVEC 



"CPU* 
4 

10 
t14 
14 
14 
20 
24 
30 
c34 
60 
64 



TRAP VECTOR ADDRESSES 

ITIHE OUT AND OTHER ERRORS 
^RESERVED AND ILLEGAL INSTRUCTIONS 
;*T* BIT 
; TRACE TRAP 

{BREAKPOINT TRAP (BPT) 
INPUT /OUTPUT TRAP (lOT) t*$COPE** 
fPOUER FAIL 

; EMULATOR TRAP (EHT) aaERROR** 
;"TRAP" TRAP 
;TTY KEYBOARD VECTOR 
;TTY PRINTER VECTOR 
{PROGRAM INTERRUPT REQUEST VECTOR 



.'INSTRUCTION DEFINITIONS 



PUSH1SP-5746 

POP1SP*5726 

PUSHR0»10046 

P0PR0»12600 

PUSH2SPs24646 

P0P2SPs22626 

flASKsBIT7 

CLEAR^O 



iDECRENENT PROCESSOR STACK 1 WORD 
;INCRENENT PROCESSOR STACK 1 UORD 
.-SAVE RO ON STACK 
.•RESTORE RO FROM STACK 
; DECREMENT STACK TWICE 
; INCREMENT STACK TWICE 

.'SET INTERRUPT MASK (INHIBIT FURTHER INTERRUPTS) 
; ALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 



000010 
000020 
000040 
000100 
000200 
010000 
020000 
040000 
100000 



000000 
000400 
001000 
001400 
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(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



010000 
020000 
040000 
100000 



000000 
000400 
001000 

oouoo 



000000 
000001 
000002 
000003 

000000 
000010 
000020 
000030 
000040 
000050 
000060 
000070 

000100 



H 2 

10:13 PAGE 10-3 

GENERAL DEFINITIONS AND EQUIVALENCES 

:DZV11 CONTROL AND STATUS REGISTER DEFINITIONS 
.-(OZVCSR) BIT DEFINITIONS 



SEQ 20 



HAINT - BIT3 

DCLRSBIT4 

NSENABsBITS 

RIE-BIT6 

RDONE^BIT? 

SiLOENs BIT12 

SILOAL « BIT13 

TIE=BIT14 

TRDY-BIT15 



MAINTENANCE NODE ENABLE 
DEVICE CLEAR 
HASTER SCAN ENABLE 
RECEIVER INTERRUPT ENAFIE 
RECEIVER DONE 
SILO ALARN ENABLE 
SILO ALARM 

TRANSMITTER INTERRUPT ENABLE 
TRANSMITTER READY 



;DZVCSR WORD DEFINITIONS 



TLOsO 
TL1-BIT8 
TL2*BIT9 
TL3-BIT9!BIT8 



; TRANSMIT LINE 0 

: TRANSMIT LINE 1 

.•TRANSMIT LINE 2 

; TRANSMIT LINE 3 



;DZVRBUF BIT DEFINITIONS 



PARER-BIT12 
FRMERR-BIT13 
OVRRUNsBITU 
DVALIDsBITIS 



; PARI TV ERROR 
: FRAME ERROR 
: OVERRUN ERROR 
.-DATA VALID 



.•DZVRBUF WORD DEFINITIONS 



RLO^O 
RLUBIT8 
RL2»BIT9 
RL3sBIT9!BIT8 



.RECEIVER LINE 0 

; RECEIVER LINE 1 

.•RECEIVER LINE 2 

:RECEIVER LINE 3 



;DZVLPR WORD DEFINITIONS 



LPO-0 
LP1-BIT0 
LP2sBIT1 
LP3=BITi: iTO 



LINE PARAMETER 0 
LINE PARAMETER 1 
LINE PARAMETER 2 
LINE PARAMETER 3 



FIVE»0 :FIVE BITS/CHAR. 1 STOP BIT 

SiXsBIT3 .-SIX BITS/CHAR. 1 STOP BIT 

SEVENSBIT4 .-SEVEN BITS/CHAR.1 STOP BIT 
EIGHTsBIT4!BIT3 .EIGHT BITS/CHAR.1 STOP BIT 
FIVES-BITS :FIVE BITS/CHAR.2 STOP BITS 
SIXSrBITS!BIT3 jSIX BITS/CHARJ STOP BITS 
SEVENSsBIT5!BlT4 .-SEVEN BITS/CHAR. 2 

EIGHTSsBITS!BIT4!BIT3 ;EI6HT BITS/CHAR. 2 



STOP BITS 
STOP BITS 



PARnYsBIT6 



;PAR1TV ENABLED 



1 2 
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(1) 000200 ODDPARsBIT? ;0DD PARITY ENABLED 

(1) 000000 0NEST0P=0 ;0NE STOP BIT ENABLED 

(1) 000040 TUOSTOPsBITS :TU0 STOP BITS ENABLED 

(1) 000000 EVEPARsO ;EVEN PARITY ENABLED 

(1) 010000 RCV0NSBIT12 :ENABLE RECEIVER (RECEIVER ON) 

(1) 

(1) 000000 S50-0 .-SPEED SO BAUD 

(1) 000400 S7SSBIT8 : SPEED 75 BAUD 

(1) 001000 S110sBIT9 ;SPEED 110 BAUD 

(1) OOUOO S134sBIT9!BIT8 :SPEED 134.5 BAUD 

(1) 002000 SISOsBITIO .-SPEED 150 BAUD 

(1) 002400 S300«BIT10iBIT8 .-SPEED 300 BAUD 

(1) 003000 S600*BIT10!BIT9 ;SPEED 600 BAUD 

(1) 003400 S1200sBIT10!BIT9!BlT8 .-SPEED 1200 BAUD 

(1) 004000 S1800-BIT11 :SPEED 1800 BAUD 

(1) 004400 S2000*BIT11!BIT8 .-SPEED 2000 BAUD 

(1) 005000 S2400sBIT11!BIT9 ; SPEED 2400 BAUD 

(1) 005400 S3600sBlT11!BIT9!B118 : SPEED 3600 BAUD 

(1) 006000 S4800sBIT11!BlT10 ; SPEED 4800 BAUD 

(1) 006400 S7200«8IT11!BIT10!BIT8 : SPEED 7200 BAUD 

(1) 007000 S9600»BIT11!BIT10!BIT9 ; SPEED 9600 BAUD 

(1) 007400 S19200sBIT11!BIT10!BIT9!BIT8 ; SPEED 19200 BAUD 

(1) 

(1) .-DZVTCR BIT DEFINITIONS 
(1) ; — 

(1) 000001 TCROsBITO :ENABLE TRANSMISSION ON LINE 0 

(1) 000002 TCRIsBin ;ENABLE TRANSNISSIUN ON LINE 1 

(1) 000004 TCR2«6IT2 ;ENABLE TRANSMISSION ON LINE 2 

(1) 000010 TCR3sBIT3 ; ENABLE TRANSMISSION ON LINE 3 

(1) 000400 DTROsBITB :DATA TERMINAL READY FOR LINE 0 

(1) 001000 DTR1SBIT9 ;DATA TERMINAL READY FOR LINE 1 

(1) 002000 DTR2sBIT10 ;DATA TERMINAL READY FOR LINE 2 

(1) 004000 DTR3sBIT11 ;DATA TERMINAL READY FOR LINE 3 
(1) 

(1) .-DZVMSR BIT DEFINITIONS 

<1) 

(1) 000001 RINGOsBITO .-RING INDICATED ON LINE 0 

(1) 000002 RIN61»BIT1 ;RING INDICATED ON LINE 1 

(1) 000004 RING2»BIT2 ;RING INDICATED ON LINE 2 

(1) 000010 RING3s8IT3 :RIN6 INDICATED ON LINE 3 

(1) 000400 COOsBITB :CARRIER PRESENT ON LINE 0 

(1) 001000 C0UBIT9 .-CARRIER PRESENT ON LINE 1 

(1) 002000 C02-BIT10 ; CARRIER PRESENT ON LINE 2 

(1) 004000 COSsBITII .-CARRIER PRESENT ON LINE 3 
(1) 

(1) .OZVTDR BIT DEFINITIONS 

(1) ; 

(1) 

(1) 000400 BRK0-BIT8 .BREAK FOR LINE 0 

(1) 001000 BRK1SBIT9 :BREAK FOR LINE 1 

(1) 002000 BRK2-BIT10 :BREAK FOR LINE 2 

(1) 004000 BRK3sBlT11 .-BREAK FOR LINE 3 



J 2 
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(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



TABLE OF LOOP AROUND FUNCTIONS (H32S} 



I 
V 

REC 
DATA 



I 
V 
CO 



I 
V 

RING 



TRANS 
DATA 



* 

RTS 



* 

DTR 



iEQ 22 I 
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(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(2) 
(2) 
(2) 
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TRAPCATCHER FOR UNEXPECTED INTERRUPTS 



SEQ 



000020 
000022 
000024 
000026 

000034 
000036 



000046 
0000S2 



000174 
000176 

000200 



001000 



000000 
000034 



000020 
004462 
000200 
007564 
000340 
000034 
006402 
000340 



000040 
000046 
004416 
000052 
000000 
000040 

000174 
000000 
000000 
000200 

000137 002116 



001000 

00S200 053103 



; TRAPCATCHER FOR ILLEGAL INTERRUPTS 
;THE STAN^ARD "TRAP CATCHER" IS PLACED 
.•BETWEEN ADDRESS 0 TO ADDRESS 776. 
;IT LOOKS LIKE •'PC*2 HALT". 



.«0 

; UFD DON*T SETUP ENT AS TRAP CATCHER SINCE IT IS USED FOR LINKAGE BETWEEN UFO KWITOR 
.a34 

; STANDARD INTERRUPT VECTORS 



.^20 

.«34 
.SBTTL 



.SCOPE 

MASK 

SPURDN 

340 

.TRPSRV 
340 

ACT11 HOOKS 



: SCOPE LOOP HANDLER 

: HANDLE AT PRIORITY 7 

.-POWER FAIL HANDLER 

: SERVICE AT PRIORITY LEVEL 7 

; GENERAL HANDLER DISPATCH SERVICE 
.'SERVICE AT PRIORITY LEVEL 7 



;HOOKS REQUIRED BY ACT11 
SSVPC-. 
.a46 
SENDAD 
.«52 

.UORD 0 
.•SSVPC 

.«174 
DISPRE6:0 
SWRE6: 0 
.«200 

JNP .START 



:SAVE PC 

:;1>SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

:;2)SET L0C.S2 TO ZERO 
RESTORE PC 



{SOFTWARE DISPLAY REGISTER FOR SWITCHLESS IIS 
.-SOFTARE SWITCH REGISTER FOR SWITCHLESS IIS 

:60 TO START OF PROGRAM 



.si 000 

055104 HTITLE: .ASCIZ <200><12>/CVOZAD/<200>/FOUR LINE ASYNC MUX TESTS. PART 1 OF 2/<200> 
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PROGRAH PARAMETERS. VARIABLES, AND TRAP CALLS. 



SEO 24 



(3) 
(4) 
(4) 
(4) 
(S) 
(4) 

(4) 001120 

(4) 001120 

(4) 001122 

(4) 001124 

(4) 001126 

(4) 001130 

(4) 001132 

(4) 001134 

(4) 001136 

(4) 001140 

(4) 001140 

(4) 001141 

(4) 001142 

(4) 001144 

(4) 001146 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 

(4) 001150 

(4) 001151 

(4) 

(4) 

(4) 

(4) 

(4) 001152 
(4) 

(4) 001154 

(4) 001155 

(4) 001156 

(4) 001160 

(4) 001161 

(4) 001162 

(4) 001164 

(4) 001165 

(4) 001166 

(4) 0U1170 

(4) 001172 

(4) 001174 

(4) 001176 

(4) 001200 

(4) 001202 

(4) 001204 

(4) 001206 

(4) 001210 

(4) 001212 

(4) 0012U 

(4) 001216 



001120 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



000 
000 



000000 

000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000300 
000000 
160010 
000001 
000017 
000000 
017470 
017470 
017470 
017470 
017470 
017470 



'.SBTTL 



.«1120 

APT IMILBOX-E TABLE 



.EVEN 

SMAIL: 

SNSGTY: 

SFATAL: 

STESTN: 

SPASS: 

SDEVCT: 

SUNIT: 

SffSGAD: 

SnSGLG: 

SETABLE: 

SENV: 

SENVn: 

tSUREG: 

SUSUR: 

SCPUOP: 



;• 

SMANSI: 
SflTYPi : 

;* 

;• 

SMADR1 

^ 

SNAnS2 
$nTYP2 
tNA0R2 
SMAHSS 
$MTYP3 
SfM0R3 
$NAHS4 
MTYP4 
SfUDR4 
IVECT1 
SVECT2 
SBASE: 
SDEVH: 
tCOUl : 
fCDU2: 
SDDUO: 
SODtfl : 
S00U2: 
SDDU3: 
S0DU4: 
ID9U5: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ANSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

ANS6LG 

AENV 

AENVN 

ASWREG 

AUSWR 

ACPUOP 



ANANS1 
ANTYPI 



.WORD AHADRI 



AIIAIIS2 

AIITYP2 

AflADR2 

ARANS3 

ANTYP3 

ANADR3 

AIIAflS4 

APITYP4 

ANADR4 

AVECT1 

AVECT2 

ABASE 

ADEVH 

ACDW1 

ACDW2 

AODWO 

ADDW1 

ADDW2 

ADDW3 

A00W4 

ADDWS 



:APT MAILBOX 
:PIESSAGE TYPE CODE 
: FATAL ERROR NUMBER 
:TEST NUMBER 
;PASS COUNT 
: DEVICE COUNT 
:I/0 UNIT NUMBER 
.•MESSAGE ADDRESS 
;MESSAGE LENGTH 
:APT ENVIRONMENT TABLE 
.•ENVIRONMENT BYTE 
; ENVIRONMENT MODE BITS 
:APT SWITCH REGISTER 
:USER SWITCHES 
;CPU TYPE. OPTIONS 
BITS 15-11 "CPU TYPE 

1 1 /04s01 . 1 1 /05«02. 1 1 /20«03. 1 1 /40«04 . 1 1 /45«05 
11/70«06.PDQ«07.Qx10 
BIT 10>REAL TIME CLOCK 
BIT 9>FL0ATING POINT PROCESSOR 
BIT 8«MEM0RY NANAtiEMENT 
:;HIGH ADDRESS.M.S. BYTE 
:;MEM. TYPE.BLKfl 
MEN.TYPE BYTE — (HIGH BYTE) 
900 MSEC COREsOOl 
300 NSEC BIPOLAR8002 
500 NSEC HOSs003 
HIGH ADDRESS. BLKfl 

MEM.LAST ADDR.«3 BYTES.THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS.M.S. BYTE 
MEM.TYPE.BLK#2 
MEM.LAST ADDRESS.BLKf2 
HIGH ADDRESS.M.S. BYTE 
NEM.TYPE.BLKf3 
MEM.LAST ADDRESS.BLKf3 
HIGH AODRESS.M.S.BYTE 
MEM.TYPE.BLK#4 
MEM.LAST ADDRESS .BLK#4 
INTERRUPT VECTORfl.BUS PRIORITYfl 
INTERRUPT VECT0R»2BUS PRI0RITYf2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION WORDfl 
CONTROLLER DESCRIPTION W0RDf2 
DEVICE DESCRIPTOR WORD«0 
DEVICE DESCRIPTOR WORDfl 
DEVICE DESCRIPTOR W0RDf2 
DEVICE DESCRIPTOR W0RDf3 
DEVICE DESCRIPTOR W0RDf4 
DEVICE DESCRIPTOR WOROfS 
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(4) 001220 017470 

(4) 001222 017470 

(4) 001224 017470 

(4) 001226 017470 

(4) 001230 017470 

(4) 001232 017470 

(4) 001234 017470 

(4) 001236 017470 

(4) 001240 017470 

(4) 001242 017470 
(4) 
(4) 

(4) 001244 
(4) 
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APT NAILBOX-E TABLE 

tODW6: .yORD A0DW6 

SD0W7: .WORD ADDU7 

>DDW8: .WORD A0DU8 

SDDU9: .WORD A?0U9 

ID0W10: .UORO AODWlO 

SDDUII: .WORD ADDU11 

tODU12: .WORD ADDU12 

$DDW13: .WORD AD0W13 

$DDW14: .WORD ADDW14 

SDDW15: .WORD AODWIS 



SETEND: 



M 2 



DEVICE DESCRIPTOR W0RD#6 
DEVICE DESCRIPTOR W0RD«7 
DEVICE DESCRIPTOR WORDfS 
DEVICE DESCRIPTOR W0RD«9 
DEVICE DESCRIPTOR W0RD»10 
DEVICE DESCRIPTOR WORDfll 
DEVICE DESCRIPTOR W0RDf12 
DEVICE DESCRIPTOR W0RD«13 
DEVICE DESCRIPTOR WORDfU 
DEVICE DESCRIPTOR W0RD«1S 







1 U : 1 .9 r Auc 


1 n_Q 
1 U"V 
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COmON TAGS 




(3) 
(3) 






.S8TTL 




TAGS 


(4) 












(3) 






;«THIS 


TABLE CONT.MNS 


(3) 






;*USED 


IN THE PROGRAM 


(3) 












(3) 


001244 




SCHTAG: 






(3) 


001244 


UUUUUU 




.WORD 


0 


(3) 


001246 


AAA 


STSTNM: 


.BYTL 


0 


(3) 


001247 


AAA 
UUU 


SERFL6: 


.BYTE 


0 


(3) 


001 2S0 


AAAAAA 
UUUUUU 


SICNT: 


.WORD 


0 


(3) 


0012S2 


AAAAAA 


$LPADR: 


.UORD 


0 


(3) 


001254 


AAAAAA 
UUUUUU 


SLPERR: 


.WORD 


0 


(3> 


001256 


AAAAAA 


SERTTL: 


.WORD 


0 


(3) 


001260 


AAA 
UUU 


SITEMB: 


.BYTE 


0 


(3) 


001261 


AAI 
UUI 


$ERNAX: 


.BYTE 


1 


(3) 


001262 


AAAAAA 


SERRPC : 


.WORD 


0 


(3) 


001264 


AAAAAA 


S6DADR: 


.WORD 


0 


(3) 


001266 


AAAAAA 


SBDAOR: 


.WORD 


0 


(3) 


001270 


AAAAAA 


S6DDAT : 


.WORD 


0 


(3) 


001272 


AAAAAA 


$80DAT: 


.WORD 


0 


(3) 


001274 


AAAAAA 
UUUUUU 




.WORD 


0 


(3) 


001276 


AAAAAA 




.WORD 


0 


(3) 


001300 


AAA 
UUU 


$AUT0B: 


.BYTE 


0 


(3) 


001301 


AAA 
UUU 


IINTAG: 


.BYTE 


0 


(3) 


001302 


AAAAAA 
UUUUUU 




.WORD 


0 


(3) 


001304 


1 77C7A 


SWR: 


.WORD 


DSWR 


(3) 


AAA 

001306 


1 77C7A 


DISPLAY: .WORD 


DDISP 


(3) 


001310 


1 77CiLA 
1 f r SOU 


STKS: 


177S60 




(3) 


AAA V A A 

001312 


177CA9 
1 r r ?Oc 


STKB: 


177562 




(3) 


001314 


1 r f 30*1 


STPS: 


177564 




(3) 


001316 


177CAA 
1 f r 300 


STPB: 


177566 




(3) 


001320 


AAA 
UUU 


SNULL: 


.BYTE 


0 


(3) 


001321 


AA9 
UUc 


SPILLS: 


.BYTE 


2 


(3) 


001322 


A19 
Ulc 


SFILLC: 


.BYTE 


12 


(3) 


AAA V AV 

001323 


AAA 
UUU 


STPFLG: 


.BYTE 


0 


(3) 


001324 


AAAAAA 
UUUUUU 


SRE6AD: 


.WORD 


0 


(3) 












(5) 


001326 


AAAAAA 
UUUUUU 


SREGO: 


.WORD 


0 


(5) 


001330 


AAAAAA 
UUUUUU 


SRE61 : 


.WORD 


0 


(5) 


001332 


AAAAAA 
WWW 


$REG2: 


.WORD 


0 


(5) 


001334 


AAAAAA 
UUUUUU 


$RE63: 


.WORD 


0 


(5) 


001336 


AAAAAA 
UUUUVU 


$REG4: 


.WORD 


0 


(5) 


001 340 


AiiAAAA 
UUUUUU 


SRE65: 


.WORD 


0 


(5) 


001342 


AAAAAA 
UUUUUU 


STNPO: 


.WORD 


0 


(5) 


001 344 


AAAAAA 
VWWV 


$TW>1 ; 


.WORD 


0 


(5) 


001346 


AAAAAA 
WWW 


$TflP2: 


.WORD 


0 


(5) 


001350 


AAAAAA 
UUUUUU 


$TNP3: 


.WORD 


0 


(S) 


001352 


AAAAAA 
UUUUUU 


$TNP4: 


.WORD 


0 


(3) 


001354 


AAAAAA 
UUUUUU 


STIMES: 


0 




(3) 


001356 


A77 


SQUES: 


.ASCII 


/?/ 


(3) 


001357 


Ul> 


SCRLF : 


.ASCII 


<15> 


(3) 


001360 


VWV 1 ft 


$LF: 


.ASCIZ 


<12> 



COmON STORAGE LOCATIONS 



START OF COMMON TAGS 

;; CONTAINS THE TEST NUMBER 
;; CONTAINS ERROR FLAG 
.-.-CONTAINS SUBTEST ITERATION COUNT 
;; CONTAINS SCOPE LOOP ADDRESS 
;; CONTAINS SCOPE RETURN FOR ERRORS 
-CONTAINS TOTAL ERRORS DETECTED 

CONTAINS ITEM CONTROL BYTE 
:; CONTAINS MAX. ERRORS PER TEST 

CONTAINS PC OF LAST ERROR INSTRUCTION 
;: CONTAINS ADDRESS OF 'GOOD* DATA 
;: CONTAINS ADDRESS OF *BAD* DATA 

CONTAINS 'GOOD* DATA 
:; CONTAINS *BAD* DATA 
: .'RESERVED— NOT TO BE USED 

: .-AUTOMATIC MODE INDICATOR 
;: INTERRUPT MODE INDICATOR 

;;ADDRESS UF SWITCH REGISTER 
;; ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
::TTY KBD BUFFER 

;:TTY PRINTER STATUS REG. ADDRESS 

.-;TTY PRINTER BUFFER REG. ADDRESS 

; .-CONTAINS NULL CHARACTER FOR FILLS 

;: CONTAINS f OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A 'IINE FEED" 
.•.-"TERMINAL AVAILABLE" FLAG (BIT<07>s0sYES) 

CONTAINS THE ADDRESS FROM 
.-;WHICH (SREGO) WAS OBTAINED 
; .-CONTAINS ((SRE6AD)40) 

CONTAINS ((SREGAD)«2) 
;; CONTAINS ((SREGAD)*4) 
;: CONTAINS (($RE6AD)«6) 

CONTAINS (($REGA0}«10) 

CONTAINS ((SREGAD)»12) 
;:USER DEFINED 
;:USER DEFINED 
;;USER DEFINED 
;:USER DEFINED 
;;USER DEFINED 
;;NAX. NUMBER OF ITERATIONS 

QUEST ION MARK 

CARRIAGE RETURN 
;;LINE FEED 



CVDZA-D MACY11 30(1046) Vi-nAR-83 
CVDZAD.P11 11-NAR-83 10:06 

(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 

(3) 001362 

(2) 

(2) 

(2) 

(2) 

(2) 001362 000000 

(2) 001364 000000 

(2) 

(2) 

(2) 

(2) 

(2) 001366 000017 
(2) 001370 017470 
(2) 001372 000000 
(2) 001374 000000 
(2) 001376 000000 
(2) 001400 000000 
(2) 001402 000000 
(2) 001404 000000 
(2) 001406 000001 
(2) 001410 000001 
(2) 001412 000001 
(2) 001414 000001 
(2) 00U1S 001 
(2) 001416 000001 
(2) 001420 
(2) 001420 001500 



B 3 

10:13 PAGE 10-10 

ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

;*TH1S TABLE CONTAINS THE INFCRNATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*L0CAT10N tITERB. irilS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

.••NOTEI: IF $ITEM8 IS 0 THE ONLY PERTINENT DATA IS ($ERRPC>. 

;ftN0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 

DH 
DT 
DF 



: POINTS TO THE ERROR MESSAGE 

: POINTS TO THE DATA HEADER 

; POINTS TO THE DATA 

: POINTS TO THE DATA FORMAT 



SERRTB: 



NEXT: 
LOCK: 



; PROGRAM CONTROL PARAMETERS 



0 
0 

; PROGRAM VARIABLES 



LINE: 17 
PAR: 17470 
NODE: 0 
SAVLIN: 0 
XMTLIN: 0 
XNTCNT: 0 
REGIST: 0 
SAVPC: 0 
D2VACTV:.BLKW 
SAVACTV:.BLKU 



RUN: 

D2VNUM: 

SAVNUN: 

SAVNO: 

.EVEN 

ACTIVE: 



1 

.8LKB 1 
.BYTE 1 
.BLKB 

DZV.NAP 



:ADDRESS OF NEXT TEST TO BE EXECUTED 
;ADDRESS FOR LOCK ON CURRENT TEST. TIGHT LOOP 



;DEFAULT ALL FOUR LINES RUNNING 

:PARAMETERS: 8 BITS/CHAR. 2 STOP BITS. 19200 BAUD.NO PARIT 
:DEFAULT MAINTENANCE MODE 
:L1NE NUMBER 

.-TRANSMISSION LINE NUMBER 

: COUNT OF WORDS IN A TRANSMISSION PATTERN 

.•DEVICE ADDRESS STORAGE LOCATION 

.•PROGRAM COUNTER STORAGE 

.-•DZVIVS SELECTED ACTIVE. 

:*A BIT MAP OF D2VirS IN THE SYSTEM 

:*POINTER ONE PAST RUNNING DEVICE. 

.••OCTAL NUMBER OF DZVll'S IN THE SYSTEM 

:*WORKABLE NUMBER. 

.••OCTAL NO. OF DZVll'S BEING TESTED 

: TABLE POINTER. 



1 



C 5 



CVDZA'D HACYll 30(1046) 11-HAR-83 
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(2) 
<2) 
(2) 
(2) 

(2) 001422 000 
(2) 001423 000 
(2) 001424 000 
(2) 00U2S 000 
(2) 
(2) 

(2) 001426 000000 

(2) 001430 000000 

(2) 001432 000000 

(2) 001434 000000 

(2) 001436 000000 

(2) 001440 000000 

(2) 001442 000000 

(2) 001444 000000 

(2) 001446 

(2) 

(2) 

(3) 

(2) 

(3) 

(2) 001446 

(2) 000024 

(2) 000024 000200 

(2) 000044 

(2) 000044 001446 

(2) 001446 

(3) 

(2) 

(2) 

(2) 

(2) 001446 
(2) 001446 000000 
(2) 001 4S0 001120 
<2> 001452 000120 
(2) 001454 000024 
(2) 001456 000000 

(2) 001460 000052 
(1) 

(1) 
(1) 

(1) 001500 

(1) 001500 

(3) 

(3) 001500 000001 
(3) 001502 000001 
(3) 001504 000001 
(3) 001506 000001 
(3) 001510 000001 
(3) 

(3) 001512 000001 
(3) 001514 000001 
(3) 001516 000001 



10:13 PAGE 10-11 

ERROR POINTER TABLE 



S£Q 26 



: PROGRAM CONTROL FLAGS 



INIFLG: .BYTE 0 
HDRFL6: .BYTE 0 
NNTFLG: .BYTE 0 
DONFLG: .BYTE 0 
.EVEN 

:DATA VARIABLES 
TOO: .WORD 0 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 



;PROGRAM INITIALIZATION FLAG 

.-PROGRAM INITIALIZATION FLAG FOR HEADER NAP 

.-MAINTENANCE BIT SET FLAG 

; TRANSMISSION COMPLETION FLAG 



TD1 
TD2: 
TD3: 
TRO: 
TR1: 
TR2: 
TR3: 
STOP: 

.SBTTL APT PARAMETER BLOCK 



0 
0 
0 
0 
0 
0 
0 



;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



.sx«. 

.«24 

200 

.s44 

SAPTHDR 

.-.$X 



.-SAVE CURRENT LOCATION 

;SET POUER FAIL TO POINT TO START OF PROGRAM 
:FOR APT START UP 

.-POINT TO APT INDIRECT ADDRESS PNTR. 
; POINT TO APT HEADER BLOCK 
:RESET LOCATION COUNTER 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



$APTHD: 

SHIBTS: 

SMBAOR: 

STSTN: 

SPASTN: 

SUNITM: 



.*1500 
DZV.MAP: 

DZCRO: 

DZVCO: 

LINEO: 

PARO: 

MANTO: 

DZCR1: 
DZVC1 : 
LINE1: 



.WORD 0 ;:TUO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.WORD SMAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 80. ;;RUN TIM OF LONGEST TEST 

.WORD 20. ;:RUN IME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.WORD 0. ;:ADDiriONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 

.WORD SETEND-$MAIL/2 ;:LEN6TH MAILBOX-E TABLE (WORDS) 

:DZV11 STATUS TABLE AND ADDRESS ASSIGNMENTS 



UNIT 



.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 



: CONTROL STATUS REGISTER FOR DZV11 NUMBER 0 
.-RECEIVER AND BASE VECTOR FOR DZVll NUMBER 0 
:ALL LINES SELECTED 
'PARAMETERS 

•MAINTENANCE MODE FOR THIS DEVICE 

; CONTROL STATUS REGISTER FOR D2V11 NUMBER 1 
.RECEIVER AND BASE VECTOR FOR DZV11 NUMBER ^ 
:ALL LINES SELECTED 



cvozA-0 HACY11 


30(1046) 11-MAR-83 


10:13 PAGE 


10-12 


CV0ZAD.P11 ll-PiAR-83 10:06 


APT PARAMETER BLOCK 


Kj) 


001 9cU 


nAAAAl 

000001 


DA01 • 

PARI : 


•dLKU 1 


iX\ 
\3) 


001 jcc 


000001 


HANI 1 : 


.oLKW 1 


tX\ 
\3I 












001 )CH 


000001 


vL\Mci 


Dl WIA 1 

•dLKH 1 


151 


001 )cO 


000001 


A}ur9 • 
Ocvvc : 


Bl ITLI 1 

•dLKw 1 


IX\ 


001330 


000001 


1 tUC9> 

LlNcc: 


Dl Mli 1 

.DLKW 1 


IX\ 


nnicx9 
00 i 33c 


nnnnm 
00000 1 


DAD9 • 


Dl Wli 1 


tX\ 
\9I 


(tAI ^XL 
001 33*1 


AAAAAI 
UUUUUI 


nnnic: 


Bl VU 1 


(Tl 

\if 










\3i 


nni cxA 


n(Mnni 

wUVUU 1 




Bl If U 1 


tX\ 


nni ^Lt\ 


AfMAAl 
UUvUU 1 


ii£Vv3 : 


Bl iru 1 

•DLKW 1 


IX\ 


nni 


A(MAA1 
UUUUU 1 


i IMFX* 


Bl KU 1 




nni ^LL 

UO 1 3*»"» 


AAAAAI 
UUUUU 1 




Bl iru 1 


tx\ 


(Ml 

UU 1 310 


AA(MA1 




Bl VU 1 
















UUWUU 1 




M KU 1 


\jl 


UU 1 J jc 


AAAAAI 

UUUUU 1 




Rl ITU 1 




UU 1 JJt 


AAAAAI 

UUUUU 1 


Line* • 


Rl KU 1 


tx^ 


UU 1 3 30 


AAAAAI 


PARA • 


Rl KU 1 


\3I 


(M1^(^A 
UU 1 sou 


A(M)AA1 

UUUUU 1 




Rl KU 1 














UU 1 3vC 


(M(MA1 
UwUUU 1 




Rl KU 1 




Uw 1 3Vt 


AMMAI 


n7urs • 


Rl KU 1 




Uvl 300 


AAAAAI 


Lines • 


Rl KU 1 




AA1 <7A 
UU 1 3r U 


AfMAAl 


PARS* 


Rl KU 1 




(Ml 


AfMMAI 

UUUUU 1 


HANTS* 


Rl KU 1 














UU 1 3 f t 


AAAAAI 

UUUUU 1 


D7CR6* 


RLKU 1 


\3* 


UU 1 3r O 


AA(MA1 




Rl KU 1 

•DLAW 1 


\3f 


UU lOUV 


AAAAAI 




RLKU 1 


rxi 

1 3/ 


AA1AA9 

UU lOUC 


AAAAAI 


r Anv • 


Rl KU 1 


(XI 
\ 3/ 


UU IOU*l 


AAAAAI 




Rl KU 1 


(XI 

\3t 










(XI 

\3i 


UU 1 wVV 


AAAAAI 


D7CR7* 


Rl KU 1 


(XI 

\3t 


UU lO lU 


OAAAAI 


n7Ut7* 


RLKU 1 


(X) 

\3f 


UU lOI C 


AAAAAI 




Rl KU 1 


(X) 
1 3t 


tiMtAL 
UUIOIw 


UWUU 1 


PAR7* 


RLKU 1 


(X) 


(MIAIA 


(M(MA1 
UVUUVI 




Rl KU 1 


IX\ 
\3* 










(X) 

\3t 


AA1A)A 
UUIOCU 


UUUUU 1 


n7rR1 A* 


Rl KU 1 


(XI 


UUIOcc 


(M(MA1 
UUUUU 1 


n7uri A* 

V& W IU« 


Ri KU 1 
•DLAw 1 


(XI 

\3* 




(M(MA1 
UUUUU 1 


1 IMF1A* 
Line iu> 


Rl KU 1 


(XI 




(M(MA1 


PARI A* 

rAn 1 U • 


Rl KU 1 


(XI 

\3l 


UUI03U 


(MA(M1 
UUVUUI 


HAMTIO* 


Rl KU 1 


(XI 

\3I 










tx\ 

\ 31 


AA1AX9 
UUIQ3C 


(M(MA1 
UUUUUI 


n7rRii • 

V*vn 1 1 • 


Rl KU 1 
•DLAW 1 


(XI 

\3/ 


UU 


A(M(M1 
UUUUU 1 


b7VF11 • 


Rl KU 1 


(X) 

\3t 


UU imo 




L inc i 1 • 


RLKU 1 


(XI 

\3f 


(Ml AAA 


(M(MA1 
UUUUU 1 


PARI 1 • 

r AA 1 t • 


Rl KU 1 




001642 


000001 

WWW ■ 


HANT11 : 


.BLKU 1 


(5) 










(5) 


001644 


000001 


DZCR12: 


.BLKU 1 


(3) 


001646 


000001 


DZVC12: 


.BLKU 1 


(3) 


001650 


000001 


LINE12: 


.BLKU 1 


(3) 


001 6S2 


000001 


PARI 2: 


.BLKU 1 


(3) 


001654 


000001 


HANT12: 


.BLKU 1 



PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER 2 
RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 2 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE NODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER 3 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER 3 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER 4 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER 4 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER 5 
IRECEIVER AND BASE VECTOR FOR DZVll NUMBER 5 
ALL LINES SELECTED 
PARAMETERS 

; MAINTENANCE MODE FOR THIS DEVICE 

:CONTROI. STATUS REGISTER FOR DZVll NUMBER 6 
;RECE1VER AND BASE VECTOR FOR DZVll NUMBER 6 
ALL LINES SELECTED 
; PARAMETERS 

:MAINTENANCE MODE FOR THIS DEVICE 

; CONTROL STATUS REGISTER FOR DZVll NUMBER 7 
; RECEIVER AND BASE VECTOR FOR DZVll NUMBER 7 
;ALL LINES SELECTED 
; PARAMETERS 

IMAINTENANCE MODE FOR THIS DEVICE 

;CONTROL STATUS REGISTER FOR DZVll NUMBER 10 
[RECEIVER AND BASE VECTOR FOR DZVll NUMBER 10 
;ALL LINES SELECTED 
; PARAMETERS 

iMAINTENANCE MODE FOR THIS DEVICE 

; CONTROL STATUS REGISTER FOR DZVll NUMBER 11 
iRECEIVER AND BASE VECTOR FOR DZVll NUMBER 11 
;ALL LINES SELECTED 
; PARAMETERS 

IMAINTENANCE MODE FOR THIS DEVICE 

; CONTROL STATUS REGISTER FOR DZVll NUMBER 12 
;RECEIVER AND BASE VECTOR FOR DZVll NUMBER 12 
;ALL LINES SELECTED 
; PARAMETERS 

;MA1NTENANCE NODE FOR THIS DEVICE 



CVOZA-0 HACvn 30(1046) ll-nAR-83 



CVOZAO.Pll 11-«AR-85 


(3) 






(3) 


001 6S6 


000001 


(3) 


001660 


000001 


(3) 


001662 


000001 


(3) 


001664 


000001 


(3) 


001666 


000001 


(3) 






(3) 


001670 


000001 


(3) 


001672 


000001 


(3) 


001674 


000001 


(3) 


001676 


000001 


(3) 


001700 


000001 


(3) 






(3) 


001702 


000001 


(3) 


001704 


000001 


(3) 


001706 


000001 


(3) 


001710 


000001 


(3) 


001712 


000001 


(3) 






(3> 


001 7K 


000001 


<3) 


001716 


000001 


(5) 


001720 


000001 


(3) 


001722 


000001 


(3) 


001724 


000001 


(3) 






(3) 


001726 


000001 


(3) 


001730 


000001 


(3> 


001732 


000001 


(3) 


001734 


000001 


(3) 


001736 


000001 


(1) 






(1) 


001740 


177777 



10:13 PAGE 10-13 

APT PARAMETER BLOCK 



DZCR13: .BLKy 1 

DZVC13: .BLKW 1 

LINE13: .BLKW 1 

PARI 3: .BLKW 1 

nANT13: .BLKW 1 

DZCR14: .BLKU 1 

DZVC14: .BLKW 1 

LINE14: .BLKW 1 

PARI 4: .BLKW 1 

fUNTU: .BLKW 1 

DZCR15: .BLKW 1 

DZVC15: .BLKW 1 

LINE15: .BLKW 1 

PARIS: .BLKW 1 

IUNT15: .BLKW 1 

DZCR16: .BLKW 1 

DZVC16: .BLKW 1 

L1NE16: .BLKW 1 

PARI 6: .BLKW 1 

NANT16: .BLKW 1 

0ZCR17: .BLKW 1 

DZVC17: .BLKW 1 

LINE17: .BLKW 1 

PARI 7: .BLKW 1 

NANT17: .BLKW 1 

OIV.EMO: 177777 



E 3 

EQ 30 



CONTROL STATUS REGISTER FOR DZVll NUMBER 13 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER 13 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER U 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER 14 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER IS 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER IS 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE NODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER 16 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER 16 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZVll NUMBER 17 
RECEIVER AND BASE VECTOR FOR DZVll NUMBER 17 
ALL LINES SELECTED 
PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 



f 3 



CVOZA-0 MACm 30(1046) ll-nAJI-83 
CV02AD.P11 ll-nAR-83 10:06 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(1) 001742 

(3) 104400 

(2) 001742 ''96476 

(3) 104401 

(2) 001744 004726 

(3) 104402 

(2) 001746 004752 

(3) 104403 
(2) 001750 005602 
(*/ 104404 
v^} 001752 005706 
3) 104405 

(2) 001754 005726 

(3) 104406 

(2) 001756 010422 

(3) 104407 
(2> 001760 006126 
(3) 104410 

(2) 001762 006166 

(3) 104411 

(2) 001764 006220 

(3) 104412 

(2) 001766 006224 

(3) 104413 

(2) 001770 006424 

(3) 104414 

(2) 001772 006456 

(3) 104415 

(2) 001774 011432 

(3) 104416 
<2) 001776 010542 
(3) 104417 

(2) 002000 006444 

(3) 104420 

(2) 002002 006510 

(3) 104421 

(2) 002004 006526 

(3) 104422 
(2) 002006 006566 
(1) 

(1) 
<1) 
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APT PARAMETER BLOCK 



SEQ 31 



:0EFJN1T10NS FOR TRAP SUBROUTINE CALLS 

:POINTERS TO SUBROUTINES CAN BE FOUND 

:IN TNE TABLE IfWEDIATELY FOLLOWING THE DEFINITIONS 



. TRPTAB : 
ADVANCEsTRAP^O 

.ADVANCE 
SC0P1»TRAP«1 

.SC0P1 
TYPEsTRAP*2 

.TYPE 
lNSTR«TRAPO 

.INSTR 
INSTER«TRAP44 

.INSTER 
PARAn*TRAP«5 

.PARAM 
SETFLG-TRAP«6 

.SETFL6 
SAV05sTRAP*7 

.SAV05 
RES05sTRAP*10 

.RES05 
CONVRTsTRAP^II 

.CONVRT 
CNVRT*TRAP«12 

• CNVRT 
DEVICE.CLR«TRAP«13 

.DEVICE. CLR 
DELAY«TRAP«14 

.DELAY 
PARND<TRAP^15 

.PARHD 
PAUCHsTRAP«16 

.PAUCH 
DCLASNsTRAP*17 

.DCLASN 
SHIFT«TRAP«20 

•SHIFT 
LPRSETsTRAP«21 

.LPRSET 
BUFSET«TRAP«22 

.BUFSET 



CALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE) 

CALL TO LOOP ON CURRENT DATA HANDLER 

CALL TO TELETYPE OUTPUT ROUTINE 

CALL TO ASCII STRING INPUT ROUTINE 

CALL TO INPUT ERROR HANDLER 

CALL TO NUMERICAL DATA INPUT ROUTINE 

CALL TO SET FLAG ROUTINE 

CALL TO REGISTER SAVE ROUTINE 

CALL TO REGISTER RESTORE ROUTINE 

CALL TO DATA OUTPUT ROUTINE 

CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF . 

:CALL TO ISSUE A DEVICE CLEAR 
CALL TO DELAY FOR FAST CPU'S 
CONVERT DECIMAL STRING TO OCTAL 
SET FLAG ECHO OR CABLE 
CLEAR DEVICE, SET MAINT. BIT IF I MODE 
CALL TO ROTATE LINE POINTER 
CALL TO SET UP LPR DEVICE REGISTER 
CALL TO ZERO BUFFER AREA 
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CVDZA0.P11 




(1) 






<1) 






(1; 






(1) 


002010 


160040 


(1) 


002012 


160041 

V WWW" I 


(1) 


0020U 


160042 

9 WWW~ w 


(1) 


002016 


160043 

1 www^ ^ 


(1) 


002020 


160042 


(1) 


002022 


160043 

1 w ww~ ^ 


(1) 


002024 


160044 

• W w W~ ~ 


(1) 


002026 


160045 


(1) 


002030 


1 60046 


(1) 


0U2032 


160047 


(1) 


002034 


160046 


(1) 


002036 


160047 


(1) 






(1) 






(1) 






(1 ) 


002040 


000300 


(1) 


002042 


000302 


(1) 


002044 


000304 


(1) 


002046 


000306 


(1) 






(1) 
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APT PARAMETER BLOCK 



;DZV11 VECTOR AND REGISTER INDIRECl POINTERS 
.•WORKING AREA 



DZVCSR: 

HDZVCSR: 

DZVRBUF: 

HDZVRBUF 

DZVLPR: 

HDZVLPR: 

DZVTCR: 

HOZVTCR: 

DZVNSR: 

HDZVnSR: 

OZVTOR: 

HDZVTDR: 



160040 

160041 

160042 

: 160043 

160042 

160043 

160044 

160045 

160046 

160047 

160046 

160047 



P/W 
R/W 

READ ONLY 
READ ONLY 
WRITE ONLY 
WRITE ONLY 
R/W 
R/W 

READ ONLY 
READ ONLY 
WRITE ONLY 
WRITE ONLY 



.•DEFAULT DZV VECTORS 



DZVRIV: 300 

DZVRIS: 302 

DZVTJV: 304 

DZVTJS: 306 



:REC INTR VECTOR 
;REC INTR STATUS 
;XMIT INTR VECTOR 
;XHIT INTR STATUS 



CVD2A-D NACY11 30(1046) 11-NAR-S3 
CV0ZAD.P11 11-MAR-83 10:0( 

<1) 
(1) 
(1) 
(1) 

(1) 0020S0 

(1) 002050 000000 

(1) 002052 000000 

(1) 002054 000000 

(1) 002056 000000 

(1) 002060 000000 

(1) 002062 000000 

(1) 002064 000000 

(1) 002066 000000 

(U 002070 000000 

(1) 002072 000000 

(1) 002074 000000 

(1) 002076 OOCOOO 

(1) 002100 000000 

(1) 002102 000000 

(1) 002104 000000 

(1) 002106 000000 

(1) 002110 000000 

(1) 002112 000000 

(1) 002114 000000 



10:13 PAGE 10-16 

APT PARAMETER BLOCK 



;T1ME TABLE FOR RELATIVE TIMING TESTS 



TMTBL: 




T50: 


0 


T75: 


0 


T110: 


0 


T134: 


0 


T1S0: 


0 


T300: 


0 


T600: 


0 


T1200: 


0 


T1800: 


0 


T2000: 


0 


T2400: 


0 


T3600: 


0 


T4800: 


0 


T7200: 


0 


T9600: 


0 


TEiGHT:0 


TSEVEN: 


0 


TSJX: 


0 


TflVE: 


0 
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n-nAR-83 10:06 




(1) 










(1) 




















(1) 










(1) 










(1) 










(1) 










(1) 




000001 






(1) 










(1) 


002116 








(1) 


002116 


032737 


000040 


000052 


(1) 


002124 


001403 






(1) 


002126 


104042 






(1) 


002130 


005060 


000042 




(1) 


002134 








(2) 










(2) 










(2) 


002134 


013737 


000030 


002152 


(2) 


002142 


013737 


000032 


002154 


(2) 


002150 


000402 






(2) 


002152 


000000 






(2) 


0021 54 


000000 






(2) 


002156 








(2) 










(2> 










(1) 


002156 


012706 


001120 




(1) 


002162 


106427 


000200 




(1) 


002166 


012737 


007564 


000024 


(1) 


002174 


012737 


006662 


AAAAVA 

000030 


(1) 


002202 


012737 


000340 


0Q003Z 


(1) 


002210 


005037 


001126 




(1) 


002214 


105037 


001247 




(1) 


002220 


012737 


001500 


AA1 A. OA 


(1) 


002226 


012737 


000001 


AA1 /.I 9 

001412 


(1) 


002234 


005037 


001256 




M) 


002240 


005037 


001262 




(1) 


002244 


005037 


001246 




(1) 


0022S0 


012737 


002116 


001 cSc 


(1) 










(1) 










(1) 


002256 


012737 


000176 


AA4 VAZ 

001304 


(1) 


002264 


012737 


000174 


AA1 VAA 

001306 


(1) 


002272 


004737 


017522 




(1) 


002276 


001405 






(1) 


002300 


004737 


000570 




(1> 


002304 


042737 


000040 


AAAAVO 

000032 


(1) 


002312 








(1) 


002312 


105737 


001422 




(1) 


002316 


001014 






(1) 


002320 


023727 


000042 


004416 


(1) 


002326 


001406 






(1) 


002330 


032737 


000040 




(1) 


002336 


001002 






(1) 


002340 


104402 


001000 




(1) 


002344 


105337 


001422 




(1) 


002350 


105737 


001141 
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PROGRAM INITIALIZATION AND START UP. 



:PR06RAN INITIALIZATION 
.-LOCK OUT INTERRUPTS 
;SET UP PPOCESSOR STACK 
;SET UP POWkR FAIL VECTOR 
: CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
:TYPE TITLE MESSAGE 
UFDSET = 1 



.START: 



IS: 



BIT fBITS,af52 :ARE WE UNDER UFD ? 

BEQ IS :NO,THEN SKIP NEXT INSTRUCTIONS 

ENT 42 ;GET DSRERR ADDRESS 

CLR 42(R0> INITIALIZE IT TO NO ERROR 



::LCP/ORION ROUTINE TO SAVE ENTULATOR AND PRIORITY 



ENTSAV: 



SAV30: 
SAV32: 
VHKOR: 



NOV 
NOV 
BR 

.yORD 
.UORD 



30,SAV30 
32.SAV32 
VNKOR 

0 
0 



:;SAVE EMULATOR ADDRESS 
::SAVE EMULATOR PRIORITY LEVEL 
::GET AROUND TAG AREA 
::PUT EMULATOR INFO HERE 
;:PUT PRIORITY LOCATION HERE 



2S: 



1000S: 



MOV 

MTPS 

MOV 

MOV 

MOV 

CLR 

CLRB 

MOV 

MOV 

CLR 

CLR 

CLR 

MOV 

:SET UP 

MOV 

MOV 

CALL 

BEQ 

CALL 

BIC 

TST6 

BNE 

CMP 

BEQ 

BIT 



fSTACK.SP 
fMASK 

fSPURDN,af24 
fSERROR«EMTVEC 
f340JNTVEC^2 
SPASS 
SERFL6 

fOZV.MAP.ACTIVE 
fURUN 
SERTTL 
SERRPC 
STSTNM 

f.START.KPADR 



:SET UP STACK 
;LOCK OUT INTERRUPTS 
;SET UP POWER FAIL VECTOR 
:SET UP ERROR VECTOR 



CLEAR PASS COUNT 
CLEAR ERROR FLAG 
;GET NAP POINTER. 
POINT POINTER TO FIRST DEVICE. 
CLEAR ERROR COUNT 
CLEAR LAST ERROR POINTER 
SET UP FOR TEST 1 
SET UP FOR POWER FAIL BEFORE 
TESTING STARTS 
FOR SNALL 11 SWITCH REGISTER t JtPATIBILlTY 
fSWREG.SWR :POINT TO SOFTWARE SWR 

fOISPREG^DI SPLAY ;POINT TO SOFTWARE DISPLAY REGISTER 



IS: 
ICS: 



TYPE 
DECB 
TSTB 



FALCON 
1000S 
FALCINI 
M0,ENTVEC«2 

INIFLG 
10S 

af42.fSENDAD 
IS 

fBITS.afS2 
IS 

,HTITLE 

INIFL'3 

SENVN 



CHECK FOR FALCON (KXT11) 
BR IF NOT 

YES. INIT FOR FALCON 
LOWER ENT TO 6. 



;GPA 
:6PA 
;GPA 
:GPA 
:GPA 



;HAVE WE ALREADY BEEN HERE TODAY? 
:IF SO. SKIP PRINTING THE TITLE 
:IF RUNNING UNDER ACT 
:DON*T PRINT TITLE 
:ARE WE UNDER UFD ? 
;YES.THEN SKIP THE TITLE PRINTOUT 
.PRINT THE DIAGNOSTIC'S TITLE 
;SET THE ONCE ONLY FLAG 

:OETEMIINE WHETHER APT SIZING SHOULD BE DONE 
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10:06 


Ml 


(V13X^Xi 






Ml 




0(14717 


011434 






00(1117 


003706 


(1 1 
\ 1 / 


wVC Jvv 


017717 


000040 


(1 ) 


(107174 


001011 

W lull 




^ i / 


WC J' w 


005717 


000042 


\ 1 # 


009407 


001404 




(11 




004717 


011434 


(1) 


002410 


0001 17 


003706 


(1) 


002414 


004737 


007346 


(1 ) 


002420 


032777 


000001 


(1) 


002426 


001002 

WW 1 Wfc 




<1) 


002430 


000137 


002732 


(1) 


002434 


012700 


001500 


(1) 


002440 


105037 


001423 


(1) 


002444 


0O5O2O 






002446 


020027 


001740 


(1 ) 


002452 


001374 




(1) 
(1) 


0024S4 


105337 


001422 


* ■ # 

(1) 








(1) 








(1) 








(1) 








(1) 




002460 

W Wfc ~ WW 




(2) 


002460 


104403 




(2) 


00H62 

WW L~Wfc 


003152 

WW^ f 




(2) 


002464 


104405 




(2) 


002466 


160000 




(2) 


002470 


167770 

1 W" » • w 




(2) 


002472 


001500 

WW » ^ww 




(2) 


002474 


007 




(2) 


002475 

WW K. ^ t ^ 


001 




(1) 


002476 


013737 


001500 


(1) 








(1) 








(1) 




002504 

WWfc * w ^ 




(2) 


002504 

ww^ ^ w^ 


104403 

■ W~ ^ w 




(2) 


002506 

WW& ^ WW 


003216 




(2) 


002510 


104405 




(2) 


002512 


000300 




(2) 


002514 


000776 




(2) 


002516 

WWfc ^ ■ w 


001502 

WW ■ XW& 




(2) 


002520 

Wfc ^&w 


003 

WW ^ 




(2) 


002521 

WWfc ■ 


001 




(1) 
(1) 


002522 


013737 


001502 


(1) 








(2) 


002530 


104403 

■ W^~w<r 




(2) 


002532 


003445 




(2) 


002534 


104406 




(2) 


002536 


001510 




(1) 








(1) 








(2) 


002540 


104403 




(2) 


002S42 


003402 
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PROGRAM INITIALIZATION AND START UP. 



BPL 15S 

JSR PC.SETAPT 

JNP 105S 

15$: BIT i9IT5,8f52 

BNE 17S 

TST ai42 

BEQ 16$ 

CALL SETAPT 

JMP 105$ 

16$: CALL 6ETSWR 

17$: BIT fSUOO.aSUR 

BNE 20$ 

JHP 55$ 

20$: MOV fDZV.HAP.RO 

CLRB HDRFLG 

25$: CLR (R0)> 

CHP RO.fDZV.END 

BNE 25$ 

DECS IN1FL6 



IF NOT. 60 CHECK FOR AUTO-SIZING 

OTHERWISE. CO DO APT SIZING FROM ETABLE 

60 PRINT DZV STATUS TABLE 
ARE WE UNDER UFD ? 

YES. THEN GO AUTOSIZE THE SETUP 
CHAINED UNDER XXDP ?? ;;6PA 
BR IF NOT ;:6PA 
TES. SET-UP FROM ETABLE ;;GPA 
AND PROCEED ::GPA 
GET INITIAL SWITCH SETTING. ;;GPA 

RESELECT ? 

IF YES. GO SET UP THE INFORMATION 

IF NO. SKIP THE INTERROGATION 

POINT TO THE BEGINNING OF THE PUP TABLE 

NAKE SURE A NAP GETS PRINTED 

CLEAR A TABLE LOCATION 

HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 

IF NOT .CLEAR THE NEXT LOCATION IN THE TABLE 

INSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 



.THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
.•TABLE AND SET UP THE DIAGNOSTIC. 



:6ET THE BASE 

GETCSR« . 

INSTR 

91$ 

PARAM 

160000 

167770 

DZCRO 

.BYTE 7 

.BYTE 1 

MOV DZCRO, 



ADDRESS OF THE DZVIVS 

; POINTER FOR FALCON TWEAKER :;GPA 

;CALL THE STRING INPUT ROUTINE 

.•POINTER TO MESSAGE TO BE PRINTED 

:CALL THE OCTAL TO ASCII CONVERT ROUTINE 

.•LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

.•HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

:POINTER TO MAP LOCATION TO BE FILLED 

:MASK OF INVALID BITS FOR THIS PARAMETER 

.•NUMBER OF PARAMETERS TO STORE 

SBASE :COPY BASE ADDRESS TO ETABLE 



.•GET THE BASE VECTOR ADDRESS 

GETVEC' . : POINTER FOR FALCON TWEAKER .•:GPA 

INSTR .-CALL THE STRING INPUT ROUTINE 

92$ ; POINTER TO MESSAGE TO BE PRINTED 

PARAM .-CALL THE OCTAL TO ASCII CONVERT ROUTINE 

300 :LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

776 ;HI6HEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

DZVCO ;POINTER TO MAP LOCATION TO BE MLLED 

.BYTE 3 :MASK OF INVALID BITS FOR THIS PARAMETER 

.BYTE 1 .•NUMBER OF PARAMETERS TO STORE 

MOV DZVC0.$VECT1 :COPY VECTOR TO ETABLE 

.GET THE NODE OF OPERATION (E.I.S) 

INSTR :CALL THE STRING INPUT ROUTINE 

96ft .-POINTER TO THE MESSAGE TO BE PRINTED 

SETFLG :CALL THE MAINTENANCE FLAG SETUP ROUTINE 

MANTO .'THIS IS THE FLAG BEING SETUP 

.GET THE NUMBER OF DZVII'S RUNNING 

INSTR ;CALL THE STRING INPUT ROUTINE 

95$ .-POINTER TO MESSAGE TO BE PRINTED 
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INITIALIZATION AND STI 














BAflft AM 

PAkAH 




(2) 


002546 


000001 








1 




(2) 


0025SO 


000020 








16. 




\CI 












CTMfil 

•Inrl 




(2) 


002554 


000 








.BYTE 


0 


(2) 


002555 


001 








.BYTE 


1 


(1) 
(1) 


002556 


012737 


000017 






NOV 


f17AINE0 


(1) 
(1) 


002564 


012737 


017470 






NOV 


f17470,PAR0 


(1) 


002572 


032777 


000010 






BIT 


»SU03,BSUR 


(1) 


002600 


001402 








BEQ 


SOS 


(1) 


002602 


004737 


002762 






JSR 


PC.65S 


(1) 


002606 


012737 


000001 


001 &10 


10ft* 


NOV 


«1«SAVACTV 


(1) 


002614 


113737 


001344 


001414 




NOVB 


STHP1 .DZVNUN 


(1) 


002622 


005337 


001344 






DEC 


STNP1 


(1) 


002626 


001404 








BEQ 


40S 


(1) 


002630 


000261 








SEC 




(1) 


002632 


006137 


001410 






ROL 


SAVACTV 


(1) 


002636 


000771 








BR 


35S 


(1) 


002640 


013737 


001410 


001346 


40S* 


NOV 


S/"ACTV.STNP2 


(1) 


002646 


012700 


001500 






NOV 


fD^CRO.RO 


(1) 


002652 


012701 


001512 






NOV 


fOZCRI ,R1 


(1) 


002656 


012702 


001204 






NOV 


mDU0.R2 


<1) 


002S62 


000241 








CLC 


(1) 


002oa4 


006037 


001346 






ROR 


STHP2 


(1) 


002670 


006237 


001346 




45S* 


ASR 


STNP2 


<1) 


002674 


103404 








BCS 


50S 


(1) 


002676 


012711 


177777 






NOV 


f-1,(R1) 


(1) 


002702 


000137 


0036S0 






JNP 


100$ 


(1) 


002706 


012011 






soft* 


NOV 


(R0)«.(R1) 


(1) 


002710 


062721 


000010 






ADD 


f10,(R1)» 


(1) 


002714 


012011 








NOV 


(R0)«,(R1) 


(1) 


002716 


062721 


000010 






ADO 


f10«(R1)« 


(1) 


002722 


012021 








NOV 


(RO)^.(RI)^ 


<1) 


002724 


012021 








NOV 


(R0)«,(R1)« 


(1) 


002726 


012021 








NOV 


(R0}^,(R1)4 


(1) 


002730 


000757 








BR 


45$ 




UUcr jC 


VjCT f f 


OAAOIA 

UVUVI V 


176344 


5Sft* 


niT 

Ol 1 




(1) 


002740 


001002 








BNE 


60$ 














JNP 


100$ 


(1) 


002746 


004737 


002762 




60t: 


JSR 


PC, 65$ 


(1) 


002752 


105337 


001422 






OECB 


INIFLG 


(1) 
(1) 


002756 


000137 


003706 






JNP 


105$ 


(1) 
(1) 












;6ET THE ACTIVE LINES 


(1) 


002762 








65ft* 






(2) 


002762 


104403 








INSTR 




(2) 


002764 


003257 








93$ 




(2) 


002766 


104405 








PARAH 




(2) 


002770 


000001 








1 




(2) 


002772 


000017 








17 




(2) 


002774 


001504 








LINEO 




(2) 


002776 


360 








.BYTE 


360 


(2) 


002777 


001 








.BYTE 


1 



RT UP. 

:CALL THE OCTAL TO ASCII CONVERT ROUTINE 
.•LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
;P0INTER TO NAP LOCATION TO BE FILLED 
;NASK OF INVALID BITS FOR THIS PARAMETER 
; NUMBER OF PARAMETERS TO STORE 

;SET UP DEFAULT LINES 

:SET UP DEFAULT LPR PARAMETER 

.•RECEIVER ON; 19.2 KBAUD: 2ST0P BITS: 8 BIT/CHAR 

;D0 YOU WANT PARAMETERS? 

:IF NO. SKIP THE PARAMETER CALL 

:6ET PARAMETERS 

.•INITIALIZE ACTIVE DEVICE SELECTION PARAMETER 
;COPY THE NUMBER OF DEVICES 
;$TMP1 CONTAINS THE COUNT OF UNINITIALIZED 
: SELECTED DEVICES 

;SET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
; POINT TO THE NEXT DEVICE 
.•60 DO THIS PROCEDURE AGAIN 
:« OF TINES 

;SET A POINTER TO THE SPECIFIED INFORMATION 

: POINT R1 TO THE REST OF THE MAP TABLE 

;POINT TO ETABLE'S DEVICE DESCRIPTOR WORDS 

.•INITIALIZE THE "C" BIT FOR A ROTATION 

:SKIP NAPPING SETUP FOR DEVICE 0- IT'S DONE 

: ISOLATE A SELECTION FLAG IN THE "C" BIT 

:IS THIS DEVICE SELECTED? IF YES. 60 LOAD TABLE 

.-TERMINATE THE LIST 

;G0 TO THE NEXT BLOCK 

;ADDRESS 

: POINT TO THE NEXT OZVll ADDRESS VALUE 
;VECTOR 

.•POINT TO THE NEXT VECTOR VALUE 

.•LINES 

.•PARANETERS 

.•MAINTENANCE NODE 

:ASK PARANETERS ? 
;IF NO. 60 00 AUTO SIZIN6 
:60 SET UP FOR AUTO SIZING 
:60 ASK PARANETERS 

: INSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
;60 TO THE NEXT BLOCK 

PARAMETER 



.•CALL THE STRING INPUT ROUTINE 
; POINTER TO NESSAGE TO BE PRINTED 
.•CALL THE OCTAL TO ASCII CONVERT ROUTINE 
:LOUEST LEGITINATE VALUE OF EXPECTED RESPONSE 
:HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
.•POINTER TO NAP LOCATION TO BE FILLED 
:NASK OF INVALID BITS FOR THIS PARAMETER 
.-NUMBER OF PARANETERS TO STORE 
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S£0 37 



(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



003000 105037 00U23 



CLRB HDRFL6 



.HAKE SURE THE CHANGES ARE PRINTED 



OO'OOA 
00. 10 
003012 
005016 
003020 
003022 
003024 
003026 
003030 
003034 
003040 
003042 
003044 
003046 
0030SO 
003052 



005737 
100021 
013703 
006003 
103410 
001414 
006203 
103373 
104402 
104402 
000750 
001772 
006203 
103370 
000241 
000761 



001510 
001504 



.THIS SEGNENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
;IS LEGITIMATE IN STAGGERED NODE OPERATION IF THAT MODE WAS SELECTED 



70S: 



001356 
010346 



75$: 
80$: 



TST 


MANTO 


:IS STAGGERED THE MODE OF OPERATION? 




BPL 


85$ 


:IF NOT. SKIP THIS SEGMENT 




MOV 


LINE0,R3 


;6ET A SCRATCH COPY OF THE ACTIVE LINES 




ROR 


R3 


;6ET A LINE SELECTION BIT(EVEN NUMBER LINE) 




BCS 


BO* 


;iF IT IS ScLcCTcD. CHECK TO SEE IF THE IkXT IS 


TOO 


aEQ 


85$ 


;IF ALL HAVE BEEN CHECKED. CONTINUE PROCESSING 




ASR 


R3 


;IF IT IS 0, CHECK TO SEE IF THE NEXT IS TOO 




BCC 


70$ 


:IF THIS ONE'S 0 TOO. GO CHECK THE NEXT PAIR 




TYPE 


.SQUES 


;THIS IS AN INCORRECT PARAMETER 




TtPt 


.MBADLN 


.LET THE USER KNOW ABOUT IT 




BR 


65$ 


:60 GET THE CORRECT PARAMETER 




BEO 


75$ 


:IF ANOTHER FLAG ISN'T SET. THERE'S AN ERROR 




ASR 


R3 


;6ET THE NEXT FLAG 

;IF IT ISN'T SET. THERE'S M ERROR 




BCC 


75$ 




CLC 




.INITIALIZE THE "C" BIT FOR TESTING OF THE NEXT 


PAIR 


BR 


70$ 


;G0 TEST THE NEXT PAIR OF FLAGS 





;6ET THE LINE PARAMETER REGISTER ARGUMENT 











OS*: 




003054 


104403 








INSTR 


003056 


003332 








94$ 


003060 


104405 








PARAM 


003062 


000000 








0 


003064 


000017 








17 


003066 


001506 








PARO 


003070 


000 








.BYTE 


003071 


001 








.BYTE 


003072 


012702 


001504 






MOV 


003076 


012703 


001506 






MOV 


003102 


011304 








MOV 


003104 


006304 








ASL 


003106 


016437 


017462 


006474 




MOV 


003114 


000313 








SUAB 


003116 


052713 


010070 






BIS 


003122 


011262 


000012 




90$: 


MOV 


003126 


011363 


000012 






MOV 


003132 


062702 


000012 






ADO 


003136 


1)62703 


000012 






ADD 


003142 


20327 


001734 






CMP 


003146 


u01365 








BNE 


003150 


000207 








RTS 


003152 


030600 


052123 


041440 


91$: 


.ASCIZ 


003216 


030600 


052123 


053040 


92$: 


.ASCIZ 


003257 


200 


044514 


042516 


93$: 


.ASCIZ 
.ASCIZ 


003332 


042200 


043105 


052501 


94$: 


003402 


021600 


047440 


020106 


95$: 


.ASCIZ 


003445 


200 


040515 


047111 


96$: 


.ASCII 


003466 


020200 


042533 


052130 




.ASCII 


003522 


C-0200 


044533 


052116 




.ASCII 


003557 


200 


055440 


052123 




.ASCIZ 



0 

1 

ffLlNE0.R2 
ffPAR0.R3 

(R3).R4 
R4 



CALL THE STRING INPUT ROUTINE 
POINTER TU MESSAGE TO BE PRINTED 
CALL THE OCTAL TO ASCII CONVERT ROUTINE 
LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
POINTER TO MAP LOCATION TO BE FILLED 
MASK OF INVALID BITS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 
POINT TO THE LINE SELECTION PARAMETER 
POINT TO THE CHOSEN PARAMETERS 
USE BAUD RATE AS AN INDEX IN DELAY TABLE 
ALIGN INDEX ON WORD BOUNDARY 



DLYTBL(R4).DLYCNT ;SET THE DELAY COUNT FOR THIS BAUD RATE 

(R3) .PLACE IN HIGH BYTE 

#10070. (R3) .-PLACE EXTRA PARAMETERS INTO LOC 

(R2).12(R2) ;LOAD THE LINES 

(R3).12(R3) :LOAD THE PARAMETERS 

#12.R2 .'POINT TO THE NEXT SET 

f12.R3 : ..OF BOTH PARAMETERS 

R3.fPARl7 :HAVE THE TABLE BOUNDARIES BEEN EXCFEDED? 

90$ :IF NOT. GO LOAD SOME MORE PARAMETERS 

PC .-RETURN T*) CALLING BLOCK 

<200>/1ST CSR ADDRESS (160000:167770): / 

<200>/lST VECTOR ADDRESS (300:770): / 

<200>/LlNES ACTIVE BY BIT <IN 0CTALX001 :17) : / 

<200>/DEFAULT BAUD RATE <IN OCTAL>(00:17) : / 

<200>/f OF DZVII'S <IN OCTAL> (1:20): / 

<200>/NAINTENANCE MODE/ 

<200>/ [EXTERNAL <H325> (E)]/ 

<200>/ [INTERNAL <DZVCSR05-1>(I)]/ 

<200>/ [STAGGERED <H329> (S)]: / 



N S 



CVDZA-D HACV11 30(1046) 11-IUR-83 10:13 PAGE 10-21 



SEO 38 



CVDZAD.P11 ll-nAR-83 10:06 




PROGRAM 


INITIALIZATION AND START 


V 1 1 


UU JO lO 


0L9A00 
VI cow 


0(9114 

w7C MO 


051105 


971: 






\ 1 / 










.EVE' 






(1 ) 










100S. 






\ 1 # 






000377 


001422 






fX77 INIFLG 


\ 1 / 














lOSk 


(1 ) 


WJvUV 


032777 


000200 

wwwCww 


175416 




BIT 


#BiT7 aSUR 


(1 ) 
\ 1 / 




001007 

WW i Vwr 










105$ 

1 WW V » 






005737 


017536 






TST 

1 w 1 


KXTFLAG 

A n 1 ■ k^w 0 


M ) 


00^74 


001402 

WW 1 ^Wfc 








BEQ 


1002$ 


(1 ) 


003676 


000137 

WWW IV 


002434 






JNP 


20$ 


\ 1 / 


003702 








1002$: 






(1 ) 


003702 


004737 

WW" • w • 


011562 

W V ■ WWfc 






JSR 

wn 


PC. AUTO. SIZE : 


(1 ) 


003706 


105737 

■ W W f W f 


001423 

WW 1 ~ b w 




10SS: 


TSTB 


HDRFLG ; 


(1) 


003712 


001021 

WW 1 Wb ■ 








BNE 


120$ ; 


(1 ) 


0037U 


105537 

i w w w • 


001423 

WW f ~ w 






DECS 

W b VW 


HDRFLG i 


(1) 


003720 


104402 


010320 

W 1 WWfc w 






TYPE 


fXHEAD ; 


(1) 


003724 

WW^f 


012700 

W • • WW 


001500 

WW ■ W WW 






MOV 


fDZV.NAP.RO 


(1) 


003730 

WW^ • WW 


010037 

w • www » 


001344 

WW • w^^ 




A A AA 

110S: 


MOV 

f 1 w w 


R0.$TNP1 


(1 ) 


003734 

WWW f w~ 


012037 

W ■ b WW ■ 


001346 

WW ■ w~ w 






MOV 


(R0)«^.$TMP2 


(1 ) 


003740 

WWW • ~ w 


022737 

Wbfc r w V 


177777 


001346 




CMP 


«-1 .$TMP2 


(1 ) 


003746 

WWW » "^W 


001403 

WW 1 ~ WW 








BEQ 


120$ 


(1) 


003750 

www • WW 


104411 






A A ^A 

11SS: 


CONVRT 




(1) 


003752 


010410 








XSTATQ 




(1) 


0037S4 

WW W r W ~ 


000765 

www f WW 








BR 


110$ 


(1) 


003756 


013737 


001410 


001406 


120»: 


MOV 


SAVACTV, DZVACTV j 


(1) 


003764 


113737 


C01414 


001416 




NOVB 


DZVNUM,SAVNO ; 


(1) 


003772 


032777 


000100 


1 75304 




BIT 


fSU06,8SUR 


(1) 


004000 


001431 








BEQ 


135$ 


(1) 


004002 








121S: 






(2) 


004002 


104403 








INSTR 




(2) 


004004 

WW^ wv » 


010236 

W • WfcWW 








MNEU 




(2) 


004006 


104405 








PARAH 




(2) 


004010 


000001 








1 




(2) 


004012 


177777 








177777 




(2) 


004014 


001406 

WW ■ WW 








DZVACTV 




(2) 


004016 


000 








.BYTE 


0 ! 


(2) 


004017 


001 








.BYTE 


1 


(1) 


004020 

WW^ Wfc w 


023737 

Wfc w • w* 


001406 


AAA J # A 

001410 




CMP 


DZVACTV, SAVACTV , 


(1) 


OO4026 

WW^ Wfc w 


101403 








BLOS 


122$ 


(1) 


004030 

WW^ WWW 


104402 

1 W~ ~ W b 


010110 

W i w 1 ■ W 






TYPE 


,MERR3 


(1) 


004034 


000762 

www V W 








BR 


121$ 


(1) 


004036 

WW^ WWW 


105037 

1 w www V 


001416 




A AAA 

122$: 


CLRB 


SAVNO 


(1) 


004042 


013737 


001406 

WW 1 ^ WW 


001344 




MOV 


DZVACTV,$TMP1 


(1) 


004050 

WW^ W WW 


006237 


001344 




A A^ A 

126S: 


ASR 


$TMP1 


(1) 


004054 


103002 








BCC 


127$ 


(1) 


004056 


105237 


001416 






INCB 


SAVNO 


(1) 


004062 


001372 

WW • W • 






127$: 


BNE 


126$ 


(1) 


004064 

WW * WW ' 


032777 

WWfc » » » 


000020 

W W w Wfc W 


175212 


135$: 


BIT 


«SU04,8SUR 


(1) 


004072 


001407 








BEQ 


140$ 


(2) 


004074 


104403 








INSTR 




(2) 


004076 


003616 








97$ 




(2) 


004100 


104405 








PARAM 




(2) 


004102 


000001 








1 




(2) 


004104 


177777 








177777 




(2) 


004106 


006474 








DLYCNT 




(2) 


004110 


000 








.BYTE 


0 



ONLY DO AUTO SIZE ON 1ST START 
BIT7s1?? 

BR IF NO AUTO SIZE 
FALCON ?? 
SKIP NEXT IF NOT. 
YES. DON'T AUTO-SIZE. 



;;6PA 
;;GPA 
;;6PA 
;;GPA 



60 DO THE AUTO SIZE 
HAS THE TABLE BEEN TYPED YET? 
IF SO, DON'T TYPE IT AGAIN 
INDICATE THAT THE TABLE WILL BE TYPED 
TYPE MAP HEADER 
SET POINTER 

POINT TO THE NAP LOCATION 
SET DATA 
END OF LIST? 
BR IF YES 

CALL THE OCTAL TO ASCII CONVERSION ROUTINE 

CONVERT THE DATA AT THIS ADDRESS 

GO PRINT THE NEXT PARAMETER 

COPY BIT HAP OF SYSTEM DEVICES ACTIVE 

COPY NO. OF SYSTEM DEVICES ACTIVE 

DESELECT SPECIFIC DEVICES?? 

BR IF NO. 

CALL THE STRING INPUT ROUTINE 

POINTER TO MESSAGE TO BE PRINTED 

CALL THE OCTAL TO ASCII CONVERT ROUTINE 

LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

POINTER TO MAP LOCATION TO BE FILLED 

MASK OF INVALID BITS FOR THIS PARAMETER 

NUMBER OF PARAMETERS TO STORE 

IS THE VALUE VALID? 

BRANCH IF YES 

IF NOT THEN TYPE ERROR 

GO REASK QUESTION 

CLEAR NO. OF DEVICES BEING TESTED 

COPY BIT MAP OF ACTIVE DEVICES BEING TESTED 

SHIFT OUT AN ACTIVE BIT 

IF NOT ACTIVE SKIP INCREMENT 

IF ACTIVE RECORD IT 

IF ALL ACTIVE BITS RECORDED DON'T BRANCH 

CHECK TO SEE IF DELAY COUNT CHANGES 

IF NOT. GO CLEAR VECTOR AREA 

CALL THE STRING INPUT ROUTINE 

POINTER TO MESSAGE TO BE PRINTED 

CALL THE OCTAL TO ASCII CONVERT ROUTINE 

LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

POINTER TO MAP LOCATION TO BE FILLED 

MASK OF INVALID BITS FOR THIS PARAMETER 



CVDZA-D HACYII 30(1046) ll-nAP-83 10:13 PAGE 
CVDZA0.P11 11-NAR-83 10:06 PROGRAM 



10-22 

INITIALIZATION 



N 3 



AND START UP. 



SEQ 39 



(2) 
(1) 
(1) 
(1) 

n) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



00A111 
004112 
004116 
004122 
004124 
004126 
004130 
004134 
004136 
004142 
004144 
004144 
004150 



001 
012700 
012701 
010120 
005021 
022021 
005737 
001403 
020027 
000402 

022700 
001364 







.BYTE 


1 


;NUWER OF PARANETERS 


TO STORE 




000300 


140$: 


NOV 


#300. RO 


: PREPARE TO CLEAR THE 


FLOATING 




000302 




NOV 


#302. R1 


.•VECTOR AREA. 300-776 
; START PUTTING "?C*Z • 
;IN VECTOR AREA. 
:POP POINTERS 








145S: 


NOV 
CLR 
CNP 


R^ .(R0)« 
(R1i« 

(R0)*,(R1)* 


• HALT" 




017536 




TST 
BEQ 


KXTFLAG 
1001$ 


; IF FALCON... 




;;CPA 
;;6PA 


000400 




CNP 


R0,«400 


.-...STOP AT 400. 




;;GPA 






402 


; SKIP NEXT 




;;GPA 




10011: 










;;6PA 


001000 




CNP 
BNE 


«1000«R0 
145$ 


:ALL DONE?? 
;BR IF NO. 







.'TEST START AND RESTART 



(1) 


004152 


012706 


001120 




.BEGIN: 


NOV 


fSTACK.SP 


;SET UP STACK 


(1) 


004156 


106427 


000200 






NTPS 


fNASK 


;LOCK OUT INTERRUPTS 


<1) 


004162 


005737 


000042 






TST 


a«42 


;IS PROGRAN UNDER NONITOR CONTROL 


(1) 


004166 


001015 








BNE 


2$ 


;BR IF YES 


(1) 


004170 


052777 


000004 


175106 




BIT 


#BIT2.aSUR 


.•CHECK FOR LOCK ON TEST 


(1) 


004176 


001406 








BEQ 


1$ 


;BR IF NO LOCK DESIRED. 


(1) 


004200 


104402 


010134 






TYPE 


.NLOCK 


.•TYPE LOCK SELECTED. 


(1) 


004204 


012737 


000240 


004474 




NOV 


#NOP,TTST 


; ADJUST SCOPE ROUTINE. 


(1) 


004212 


000403 








BR 


2$ 


.•CONTINUE ALONG. 


(1) 


004214 


013737 


004722 


004474 


1$: 


NOV 


BRU.TTST 


; PREPARE NURMAL SCOPE ROUTINE 


(1) 


004222 


012737 


010722 


001252 


2$: 


NOV 


«CYCLE.$LPADR 


;START AT "CYCLE" FIND WHICH DEVICE TO TEST 


(1) 


004230 


113737 


001416 


001415 




NOVB 


SAVNO.SAVNUN 


.•COPY ACTIVE DEVICES BEING TESTED 
;TYPE "RUNNING" 


(1) 


004236 


104402 


010025 






TYPE 


.NR 


(1) 


004242 


000177 


175004 






JNP 


a$LPADR 


;START TESTING 



B 4 

SEQ 40 

CVOZA-D ruCVll 30(1046) n-MAR-83 10:13 PAGE 10-23 

CVDZAD.P11 ll-nAR-83 10:06 END OF PASS ROUTINE 

8731 :END OF PASS 

(2) ;TYPE NAME OF TEST 

(2) .-UPDATE PASS COUNT 

(2) ;CHECK FOf> EXIT TO ACT-11 

(2) .'RESTART TE^T 

(3) .SBTTL END OF PASS ROUTINE 
(3) 

(^) • • A************************** tt ••••••••• •••••• 

(3) ;*INCREnENT THE PASS NUMBER (SPASS) 

(3) :*IF THERES A MONITOR 60 TO IT 

(3) ;*1F THERE ISN'T JUNP TO CYCLE 
(3) 

(3) 004246 SEOP: 



(5) 


004246 


000004 








SCOPE 






(5) 


004250 


005037 


001262 






CLR 


SERRPC 


CLEAR LAST ERROR PC 


(5) 


0042S^ 


105037 


001247 






CLRB 


SERFL6 


CLEAR ERROR FLAG 


(5) 


004260 


104402 


010001 






TYPE 


.NEPASS 


•TYPE END PASS 


(5) 


004264 


104402 


010163 






TYPE 


.NCSRX 


iTYPE CSR 


(5) 


004270 


104412 


004432 






CNVRT 


«XCSR 


;SHOW IT 


(5) 


004274 


104402 


010171 






TYPE 


.NVECX 


;TYPE VECTOR ' 


(5) 


004300 


104412 


004440 






CNVRT 


.XVEC 


;SHOW IT 


(5) 


004304 


005237 


001126 






INC 


SPASS 


; RAISE PASS COUNT 


(5) 


004310 


104402 


010177 






TYPE 


.NPASSX 


;TYPE PASSES 


(5) 


004314 


104412 


004446 






CNVRT 


.XPASS 


;SHOW IT 


(5) 


004320 


005337 


001126 






DEC 


SPASS 


{RESTORE PASS COUNT 


(S) 


004324 


104402 


010210 






TYPE 


.NERRX 


ITYPE ERRORS 


(5) 


004330 


104412 


004454 






CNVRT 


,XERR 


ISHOW IT 


(5) 


004334 


005237 


001130 






INC 


SOEVCT 


;INC DEVCNT FOR APT 


(5) 


004340 


105337 


001415 






DECS 


SAVNUN 


;ARE ALL DEVICES TESTED? , 














BNE 


SDOAGN 


;BR IF NO. 


(5) 


004346 


113737 


00U16 


001415 




NOVB 


SAVNO« SAVNUN 


{RESTORE THE COUNT 


(3) 


0043S4 


005037 


001354 






CLR 


STINES 


;:ZERO THE NUMBER OF ITERATIONS j 


(3) 


004360 


005237 


001126 






INC 


SPASS 


INCREMENT THE PASS NUMBER | 


(3) 


004364 


042737 


100000 


001126 




BIC 


flOOOOO.SPASS 


;;DON*T ALLOW A NEG. NUMBER 


(3) 


004372 


005327 








DEC 


(PC)* 


;;LOOP? 


(3) 


004374 


000001 






SEOPCT: 


.WORD 


1 




(3) 


004376 


003013 








BGT 


SDOAGN 


;;VES 


(3) 


004400 


012737 








NOV 


(PC)*.a(PC)* 


; .'RESTORE COUNTER 


(3) 


004402 


000001 






SENOCT: 


.WORD 


1 




(3) 


004404 


004374 








SEOPCT 






(3) 


004406 


013700 


000042 




$GET42: 


NOV 


af42.R0 


;;GET MONITOR ADDRESS 


(3) 


004412 


001405 








6EQ 


SDOAGN ;:BRANCH IF NO MONITOR 


(3) 


004414 


000005 








RESET 


CLEAR THE WORLD 


<3) 


004416 


004710 






SENDAO: 


JSR 


PC.(RO) 


;;G0 TO MONITOR 


(3) 


004420 


000240 








NOP 




;;SAVE ROOM 


(3) 


004422 


000240 








NOP 


;;FOR 


<3) 


004424 


000240 








NOP 


;;ACT11 


(3) 


004426 








SDOAGN: 






;:RETURN 


(3) 


004426 


000137 








JNP 


a(PC)* 


(3) 


004430 


010722 






SRTNAD: 


.WORD 


CYCLE 




(2) 
(2) 


004432 


000001 






XCSR: 


1 


6.2 




(2) 


004434 


006 


002 






.BYTE 




(2) 


004436 


002010 








DZVCSR 






(2) 


004440 


000001 






XVEC: 


1 


3.2 




(2) 


004442 


003 


002 






.BYTE 





C 4 



CVDZA-0 MACV11 30(1046) 11-fUR-83 10:13 PAGE 10-24 
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SEQ 41 



(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(3) 

(3) 

(4) 

(3) 

(3) 

(3) 

(3) 

<3) 

(3) 

<3) 

(3) 

(3) 

(3) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(5) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(5) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 



004444 
004446 
004450 
004452 
004454 
004456 
004460 



002040 
000001 

006 
001126 
000001 

006 
001256 



002 
002 



OZVRIV 
XPASS: 1 

.BYTE 6,2 

SPASS 
XERR: 1 

.BYTE 6,2 

SERTTL 



.•SCOPE LOOP AND ITERATION HANDLER 



.SBTTL SCOPE HANDLER ROUTINE 



:*TH1S ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

;*AND LOAD THE TEST NUNBERCSTSTNN) INTO THE DISPLAY RE6.(DISPLAV<7:0» 

:*AND LOAD THE ERROR FLAG (SERPLG) INTO DISPLAY<1S:08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

:*SUl4s1 LOOP ON TEST 

;*SU11»1 INHIBIT ITERATIONS 

:*CALL 

;* SCOPE ;;SCOPEsI0T 



004462 








SSCOPE: 




004462 


005037 

WW ^ W ^ ■ 


001262 




.SCOPE: 


CLR 


004466 


022716 


012274 






CNP 


004472 


001413 








BEQ 


004474 


000406 






TTST: 


BR 


004476 


105777 


174606 






TSTB 


004502 


100067 








BPL 


004504 


017766 


174602 


177776 




NOV 


004512 


032777 


040000 


174564 


U: 


BIT 


004520 


001060 








BNE 










;#f«ffSTART OF 


004522 


000416 






SXTSTR: 


BR 


004524 


013746 


000004 






NOV 


004530 


012737 


004550 


000004 




NOV 


004536 


005737 


177060 






TST 


004542 


012637 


000004 






NOV 


004546 


000436 








BR 


004550 


022626 






5$: 


CNP 


004552 


012637 


000004 






NOV 


004556 


000441 








BR 


004560 








6$::f«»#»EN0 OF 


004560 


105737 


001247 




2S: 


TSTB 


004564 


001404 








BEQ 


004566 


105037 


001247 




4$: 


CLRB 


004572 


005037 


001354 






CLR 


0C4i576 


032777 


004000 


174500 


3S: 


BIT 


004604 


001011 








BNE 


004606 


005737 


001126 






TST 


004612 


001406 








BEQ 


004614 


005237 


001250 






INC 


004620 


023737 


001354 


001 2S0 




CNP 


004626 


002015 








BGE 



SERRPC 
#TST1*2.(SP) 
SXTSTR 
IS 

aSTKS 
SOVER 

aSTKB,-2(SP) 

fBITU.aSUR 

SOVER 

CODE FOR THE XOR 
6S 

8«ERRVEC,-(SP) 

fS$.8#ERRVEC 

a#1 77060 

(SP)«.afERRVEC 

SSVLAD 

(SP)».(SP)* 

(SP)«,afERRVEC 

SOVER 

CODE FOR THE XOR 

SERFLG 

3S 

SERFLG 
ST IRES 
«BIT11.8SUR 
IS 

SPASS 
IS 

SICNT 

STIHES.SICNT 
SCVER 



CLEAR LAST ERROR PC. 

IS THIS THE SCOPE AT THE BEGINNING OF TSTl? 
IF SO. DON'T LOOP ON IT 
GOTO IS (IF LOCK SU02-1: THIS LOC ^240) 
KEYBOARD DONE? 

BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
CLEAR DONE BIT 
:LOOP ON PRESENT TEST? 
:YES IF SUl4s1 
TESTERfffff 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A 'XOP" (N0P=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TINEOUT 
TINE OUT ON XOR? 
RESTORE THE ERROR VECTOR 
60 TO THE NEXT TEST 
CLEAR THE STACK AFTER A TINE OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER»«ff» 
HAS AN ERROR OCCURRED? 
BR IF NO 

7ER0 THE ERROR FLAG 
CLEAR THE NUNBER OF ITERATIONS TO HAKE 
INHIBIT ITERATIONS? 
BR IF YES 

IF FIRST PASS OF PR06RAN 
INHIBIT ITERATIONS 
INCRENENT ITERATION COUNT 
CHECK THE NUNBER OF ITERATIONS NADE 
BR IF NORE ITERATION REQUIRED 



0 4 



CVDZA-0 MACY11 30(10A6) 11-NAR-83 10:13 PAGE 10-2S 
CVDZAD.P11 11-MAR-83 10:06 SCOPE HANDLER ROUTINE 



SEQ 42 



(3) 


004630 


012737 


000001 


001250 


IS: 


NOV 


fl.SICNT 


(3) 


004636 


013737 


004724 


001354 




NOV 


$NXCNT,STINES 


(3) 


004644 


105237 


001246 




SSVLAD: 


INCB 


STSTNN 


(3) 


004650 


113737 


001246 


001124 




NOVB 


S^STNN.STESTN 


(3) 


004656 


011637 


001252 






NOV 


(SP).$LPAOR 


(3) 


004662 


013777 


001246 


174416 


SOVER: 


NOV 


STSTNN.aOISPLAY 


(3) 


004670 


013716 


001252 






NOV 


tLPADR.(SP) 


(5) 


004674 


004737 


007320 






JSR 


PCSERV.G 


(5) 


004700 


105037 


001424 






CLRB 


NNTFL6 


(5) 


004704 


005737 


001372 






TST 


NODE 


(S) 


004710 


001003 








BNE 


4S 


(5) 


004712 


112737 


000010 


001424 




NOVB 


ffNAINT.NNTFLG 


(5) 


004720 


000002 






4$: 


RTI 


(5) 


004722 


000406 






BRU: 


406 




(3) 


004724 


000005 






SMXCNT: 


S 





(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
<1) 
(1) 

(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



.•REINITIALIZE THE ITERATION COUNTER 
:SET NUNBER OP ITERATIONS TO DO 
: COUNT TEST NUNBERS 
;SET TEST NUNBER IN APT NAILBOX 
.SAVE SCOPE LOOP ADDRESS 
;OISPLAY TEST NUNBER 
; FUDGE RETURN ADDRESS 
FIND OUT IF *G WAS TYPED 

CLEAR THE NAINTENANCE BIT SETTER AFTER EACH TEST 

HAS THE NODE BEEN CHANGED? 

IF NOT INTERNAL . 60 DO A TEST 

IF INTERNAL NODE NOW. SET THE MAINTENANCE BIT 

60 DO THE TEST 

;;NAX. NUNBER OF ITERATIONS 



004726 
004734 
004736 
004742 
004744 
004750 

004752 
004760 
004762 
004770 
004772 
004776 



032777 
001405 
005737 
001402 
013716 
000002 

032737 
001004 
032777 
001403 
062716 
000002 



001000 
001364 
001364 

000040 
010000 
000002 



005000 105737 001323 

005004 100002 

005006 000000 

005010 000430 

005012 010046 

0050U 017600 000002 

005020 122737 000001 



174350 



000052 
174314 



; CHECK FOR FREEZE ON CURRENT DATA 



.SC0P1: BIT 
BEQ 
TST 
BEQ 
NOV 

1$: RTI 



«SW09.aSUR 
U 

LOCK 
U 

LOCK.(SP) 



.TYPE: 



U: 

.SBTTL 



BIT 
BNE 
BIT 
BEQ 
ADD 
RTI 

TYPE ROUTINE 



«BIT5.af52 
1$ 

ffSU12,aSWR 
STYPE 
f2,(SP) 



IS SU09s1(SET)? 
BR IF NOT SET. 

IS THERE A TI6HT LOOP SPECIFIED? 
IF NO RETURN 

IF YES, GOTO THE ADDRESS IN LOCK. 
GO BACK. 

;ARE WE UNDER UFD ? 

: YES. THEN NO TYPEOUT 

.•INHIBIT ALL PRINTOUT?? 

:IF NOT, GO TYPE 

:SKIP OVER HESSA6E POINTER 

.•RETURN TO WHERE PROCEDURE WAS INVOKED 



•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUNBER OF NULL CHARACTERS AFTER A LINE FEED. 
•N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

•NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

• 

•CALL: 

•1) USING A TRAP INSTRUCTION 

• TYPE .MESADR 
•OR 

• TYPE 

• MESADR 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



001140 



STYPE: 


TSTB 


STPFLG 


;:I$ THERE A TERMINAL? 




6PL 


IS 


' 'BR IF YES 




HALT 




••HALT HERE IF NO TERMINAL 




BR 


3S 


;: LEAVE 


IS: 


NOV 


RO.-(SP) 


;;$AVE RO 




MOV 


a2(SP>.R0 


;:GET ADDRESS OF ASCIZ STRING 
; .-RUNNING IN APT MODE 




CHPB 


fAPTENV.SENV 



CVOZA-0 HACYll 


30(1046) 


ll-nAR-83 10:13 PAGE 


10-26 


E 4 


CVD2AD.P11 ll-nAR-83 


10:06 




TYPE ROUTINE 




(3) 




WW 1 V 1 1 








one 


62S 


(?) 




112757 


000100 


001141 




0J ID 


fAPTSPOOL.SENVH 






00140^ 

W 1 ^VJ 










62S 


(?) 


WW vv^v 


010017 

w ■ vw^» 


005050 






NOW 


R0.6U 


(?) 


00S044 
ww^w^~ 


004717 

WW^ ■ 


005342 






JSR 


PC»»ATY3 


(?) 


WW JW^W 


000000 
wwwwww 






61 1* 

W i V ■ 




0 


(2) 




132717 


000040 


001141 


62S: 

WC V • 


BITB 


fAPTCSUP.SENVH 


(2) 


00S060 


001001 

WW ■ WW J 








BNE 


60$ 


(2) 


00S062 


112046 

1 1 fcW~W 






2S: 


MOVB 

nw vo 


(RO)*.-(SP) 


(2) 


005064 

ww^ ww^ 


001005 

WW I WW ^ 








BNE 


4$ 


(2) 


005066 

W ^ WWW 


005726 

WW ^ ■ fc w 








TST 


(SP)* 


(2) 


005070 

ww^v w 


012600 






601: 

wwv • 


nov 


(SP)*,RO 


(2) 


005072 


062716 


000002 




3(: 


ADD 


#2,(SP) 


(2) 


005076 

WW ^w ■ w 


000002 

WWWWWfc 








RTI 




(2) 


005100 


122716 


000011 




4$: 


CNP8 


«HT.(SP) 


(2) 


005104 


001430 








BEQ 


8$ 


(2) 


005106 


122716 


000200 






cNre 


fCRLF,(SP) 


(2) 


005112 


001006 








BNE 


5$ 


(2) 


0051U 


005726 








TST 


<SP)* 


(2) 


00511^ 


104402 








TYPE 




(2) 


005120 


001357 








SCRLF 




(2) 


005122 


105037 


005330 






CIRB 


$CHARCNT 


(2> 


005126 


000755 








BR 


2$ 


(2) 


00S130 


004737 


005212 




5S: 


JSR 


PC,$TYPEC 


(2) 


005134 


123726 


001322 




61: 


CNPB 


$PILLC.(SP>* 


(2) 


005140 


001350 








BNE 


2$ 


(2) 
(?) 


005142 


013746 


001320 






NOV 


$NULL<-(SP) 


(2) 


005146 


105366 


000001 




7t: 


DECB 


KSP) 


(2) 


005152 


002770 








BLT 


6$ 


(2) 


005154 


004737 


005212 

W W ■ W 






JSR 


PC,$TYPEC 


(2) 


005160 


105337 


005330 






DECB 


$CHARCNT 


(2) 


005164 


000770 








BR 


7$ 


(2) 
















(2) 










.HORIZONTAL TAB 


PROCESSOR 


(2) 
(2) 


005166 


112716 


000040 




8$: 


NOVB 


#• .<SP) 


(2) 


005172 


004737 


005212 




9$; 


JSR 


PC,$TYPEC 


(2) 


005176 


132737 


000007 


005330 




BITB 


f7«$CHARCNT 


(2) 


005204 


001372 








BNE 


9$ 


(2) 


005206 


005726 








TST 


(SP)* 


(2) 


005210 


000724 








BR 


2$ 


(2) 


005212 








STYPEC: 






(2) 


005212 


105777 


174072 






TSTB 


a$TKS 


(2) 


005216 


100022 








BPL 


10$ 


(2) 


005220 


017746 


17.066 






NOV 


a$TKB«-(SP) 


(2) 


005224 


042716 


1.7600 






BIC 


11 77600. <SP) 


(2) 


005230 


122716 


000023 






CNP6 


f$X0FF,(SP) 


(2) 


005234 


001012 








BNE 


102$ 


(2) 


005236 








101$: 






(2) 


005236 


105777 


174046 






TSTB 


a$TKS 


(2) 


005242 


100375 








BPL 


101$ 


(2) 


005244 


117716 


174042 






NOVB 


a$TKB.(SP) 


(2) 


005250 


042716 


177600 






BIC 


f1 77600. (SP) 


(2) 


005254 


122716 


000021 






CNPB 


i$X0N.(SP) 


(2) 


005260 


001366 








BNE 


4 A1 ft 
101S 



N0.60 CHECK FOR APT CONSOLE 
SPOOL HESSA6E TO APT 
N0.60 CHECK FOR CONSOLE 
SETUP NESSA6E ADDRESS FOR APT 
SPOOL MESSAGE TO APT 
NESSAGE ADDRESS 
APT CONSOLE SUPPRESSED 
YES.SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERNINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

iBRANCH IF NOT <CRLF> 

POP <CR><LF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 
GET NEXT CHARACTER 
;G0 TYPE THIS CHARACTER 
IS IT TINE FOR FILLER CHARS.? 
IF NO 60 GET NEXT CHAR. 
GET # OF FILLER CHARS. NEEDED 
:AND THE NULL CHAR. 
DOES A NULL NEED TO BE TYPED? 
;BR IF NO— 60 POP THE NULL OFF OF STACK 
;G0 TYPE A NULL 
;00 NOT COUNT AS A COUNT 
;LOOP 



; REPLACE TAB WITH SPACE 
;TYPE A SPACE 
;BRANCH IF NOT AT 
;TAB STOP 

;POP SPACE OFF STACK 
;6ET NEXT CHARACTER 

:CHAR IN KVBD BUFFER? :HJD001 

:BR IF NOT :NJD001 

;6ET CHAR :NJD001 

.STRIP EXTRANEOUS BITS ;NJD001 

;UAS CHAR XOFF ;NJD001 

:BR IF NOT :NJD001 

:NJD001 

:WAIT FOR CHAR :NJ0001 

.NJDOOI 

:6ET CHAR :NJD001 

:STRIP IT ;NJD001 

:UAS IT XON? :NJD001 

:BR IF NOT :NJ0001 



F « 
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SEQ 44 



(2) 005262 

(2) 00S262 

(2) 005264 

(2) 00S264 

(2) 00S270 

(2) 005272 

(2) 005300 

(2) 005506 

(2) 005310 

(2) 005314 

(2) 005316 

(2) 005324 

(2) 00S326 

(2) 005330 

(2) 005332 
(2) 
(2) 
(2) 
(3) 

(2) 005334 

(2) 005342 

(2) 005350 

(2) 005352 

(2) 005360 

(4) 005360 

(4) 005362 

(2) 005364 

(2) 005370 

(2) 005372 

(2) 005400 

(2) 005402 

(2) 005410 

(2) 005412 

(2) 005416 

(2) 005424 

(2) 005430 

(2) 005432 

(2) 005436 

(2) 005440 

(2) 005442 

(2) 00S446 

(2) 005450 

(2) 005454 

(2) 005462 

(2) 005464 

(2) 005472 

(4) 005500 

(2) 005504 

(2) 005510 

(2) 005512 

(2) 005512 

(2) 005516 

(2) 005520 

(2) 005524 

(2) 005526 

(2) 005532 



005726 

105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001375 



174024 

000002 
000015 

005530 

000012 



174016 
000002 



000002 



102S: 

TST 

10S: 

TSTB 

BPL 

HOVB 

CMP8 

BNE 

CLRB 

BR 

IS: CW>8 
BEQ 
INCB 
SCHARCNT:.UORD 
STVPEX: RTS 



(SP)* 

a<TPS 
10S 

2(SP),aSTPB 

#CR,2(SP) 

IS 

SCHARCNT 

STVPEX 

fLF.2(SP) 

STYPEX 

(PC)* 

0 

PC 



;;FIX STACK 

:;yAIT UNTIL PRINTER IS READY 

..LOAD CHAR TO BE TYPED INTO DATA REG. 
:IS CHARACTER A CARRIAGE RETURN? 
.•BRANCH IF NO 

:YES— CLEAR CHARACTER COUNT 
;EXIT 

:IS CHARACTER A LINE FEED? 
.•BRANCH IF YES 
.•COUNT THE CHARACTER 
; CHARACTER COUNT STORAGE 



:NJD001 
.-NJOOOI 
:NJ0001 

.•NJOOOl 



.SBTTL APT COmUNICATIONS ROUTINE 



000001 
000001 



005600 
005576 



000001 005600 



UTY1: 
SATY3: 

SATY4: 
SATYC: 



005576 

000001 

000100 

000004 
000002 
001120 

001134 

001134 

001136 
000004 

000004 
000002 
177776 
005000 

005600 
001140 
001120 



001140 
001141 

000004 



IS: 
2S: 



001120 

005510 
000004 



3S: 



4S: 
SS: 
10$: 



IIS: 



N0V8 fl.SFFLG 

HOVB fl.SNFLG 

BR SATYC 

HOVB fl.SFFLG 

NOV RO.-($P) 

NOV R1,-(SP) 

TSTB SNFLG 

BEQ 5S 

CHPB fAPTENV.SENV 

BNE 3S 

BITB fAPTSPOOL.SENVN 

BEQ 3S 

NOV a4(SP),R0 

ADO f2.4(SP) 

TST SMSGTYPE 

BNE IS 

NOV RO.SNSGAO 

TSTB (ftO)* 

BNE 2S 

SUB SNS6AD«R0 

ASR RO 

NOV RO.SNSGLGT 

HOV f4.SNS6TYPE 

BR 5S 

NOV a4(SP).4S 

ADD #2.4 (SP) 

NOV 177776.-(SP) 

JSR PC.STYPE 

.yORD 0 

TSTB SFFLG 

BEO 12S 

TST SENV 

BEQ 12S 

TST SNSGTVPE 

BNE IIS 



;:T0 REPORT FATAL ERROR 
;;T0 TYPE A NESSAGE 

;;T0 ONLY REPORT FATAL ERROR 



PUSH RO ON STACK 
PUSH R1 ON STACK 
SHOULD TYPE A NESSAGE? 
IF nOT: BR 
OPERATING UNDER APT? 
IF NOT: BR 

SHOULD SPOOL NESSAGE S? 

IF NOT: BR 

GET NESSAGE ADDR. 

;;BUnP RETURN ADDR. 
SEE IF DONE W/ LAST XNISSION? 
IF NOT: WAIT 
PUT ADDR IN NAILBOX 
FIND END OF NESSAGE 



:;SUB START OF NESSAGE 
:;GET NESSAGE LNGTH IN UQROS 
::PUT LENGTH IN NAILBOX 
;:TELL APT TO TAKE MSG. 

:;PUT NSG ADDR IN JSR LINKAGE 
::BUNP RETURN ADDRESS 
:;PUSH 177776 ON STACK 
::CALL TYPE NACRO 



SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST NESSAGE? 
IF NOT: WAIT 



CVOZA-0 HACY11 30(10<.6) ll-fWR-85 
CV0ZAD.P11 11-MAR-83 10:06 
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APT COfWUNI CAT IONS ROUTINE 



(2) 


003S3A 


017657 


000004 


001122 




NOV 


i4(SP), (FATAL 


(2) 




062766 


000002 


aaaaaj 

000004 




ADD 


#2,4(SP) 


(ci 


AACCCA 


00523/ 


001120 






INC 


SNSGTYPE 


(<) 


005554 


4 AC ATY 

105057 


AAC^AA 

005600 




12»: 


CLRB 


A r r ■ ^ 




AACCAA 

005560 


4 ACAW 

105057 


AAC C W 

005577 






CLRB 


SLFlu 


<2) 


005564 


4 AC AV9 

105057 


AAC 

005576 






CLRB 


$Nf LG 


(hi 


AACC7A 

0055 rQ 


A1 ^▲Af 

012601 








MAt4 

NOV 


(SP)*»R1 




AACC79 

U055f 2 


01 2600 








NOV 


(SPi^fRO 




AACC7/. 


AAA?A7 
000207 








RTS 


PC 


icl 


0055 rO 


AAA 
000 






SHFL6: 


.BYTE 


A 

0 




UV37r r 


AAA 
UUv 






SLFL6: 


.BYTE 


A 
U 


(2) 


005600 


000 






SFFLG: 


.BYTE 


0 


(2) 




005602 








.EVEN 




(2) 




000200 






APTSIZE 


-200 




(2) 




000001 






APTENVsOOl 




(2) 




000100 






APTSPOOLslOO 




(2) 




000040 






APTCSUPs040 





(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1> 
(1) 



.•STRING INPUT ROUTINE 



005602 
005604 
005606 
005614 
005622 
005624 
005626 
005632 
005636 
005642 
005644 
005650 
005654 
005660 
005662 
005666 
005670 
005676 
005700 
005702 
005704 
005706 
005710 
005712 
005716 
005720 
005722 
005724 



005726 
005730 
005732 



010346 
010446 
017637 
062766 
104402 
000000 
012704 
012703 
105777 
100375 
117714 
142714 
122427 
001417 
105777 
100375 
017777 
00SS03 
001356 
012604 
012603 
010346 
010446 
104402 
000741 
012604 
012603 
000002 



010546 
010446 
016605 



000004 005624 
000002 000004 



010616 
000007 
173446 

173442 
000200 
000015 

173426 

173416 173420 



.HSG: 



U: 



2S: 



001356 



• 

NOV 


R3,-(SP) 


NOV 


R4,-(SP) 


NOV 


34(SP),.NSG 


ADD 


f2.4(SP) 


TYPE 




0 




NOV 


fINBUF.R4 


NOV 


f7.R3 


TSTB 


aSTKS 


BPL 


IS 


NOVB 


aSTKB,(R4) 


61 CB 


#200. (R4) 


CNP8 


(R4)«.f15 


BED 


INSTR2 


TSTB 


aSTPS 


BPL 


2$ 


NOV 


aSTKB.atTPB 


DEC 


R3 


BNE 


1$ 


NOV 


(SP)«.R4 


NOV 


(SP)*.R3 


NOV 


R3.-(SP) 


NOV 


R4.-(SP) 


TYPE 


.MUES 


BR 


.INST1 


NOV 


(SP)«.R4 


NOV 


(SP)*.R3 


RTl 





.CONVERT ASCII STRING 



000004 



.PARAN: NOV 
NOV 
NOV 



R5.-(SP) 
R4.-(SP) 
4(SP).R5 



4 



SEO 45 



:GET ERROR « 

;:BUNP RETURN ADDR. 
;TELL APT TO TAKE ERROR 
.•CLEAR FATAL FLAG 
; CLEAR LOG FLAG 
: CLEAR NESSAGE FLAG 
:POP STACK INTO R1 
;POP STACK INTO RO 
.•RETURN 
:NESS6. FLAG 
:LOG FLAG 
; FATAL FLAG 



;SAVE R3 ON STACK 
.•SAVE R4 ON STACK 

.-GET TNE ADDRESS OF THE NESSAGE TO BE PRINTED 

:POINT TO INSTRUCTION AFTER ADDRESS POINTER 

: PR INT THE NESSAGE 

;NESSAGE I^ POINTED TO FROM HERE 

; POINT R4 TO THE INPUT BUFFER 

;SET THE NAXINUN NUNBER OF CHARACTERS ALLOWED 

:HAS A CHARACTER BEEN RECEIVED? 

;|F NO. KEEP UAJT1N6 FOR IT 

:IF YES. SAVE IT IN THE INPUT BUFFER 

:KEEP ONLY THE 7-BIT ASCII INFORNATION 

;IS THIS CHARACTER A LINE FEED? 

;IF SO. TERNINATE THE INPUT SEQUENCE 

:IF NOT. CHECK TO SEE IF THE CHARACTER CAN PRINT 

:IF ME CAN'T. WAIT UNTIL UE CAN 

:ECHO THE CHARACTER BACK 

.•REDUCE THE NUNBER OF CHARACTERS RECEIVED 

:IF WE OON*T HAVE 7. GO GET SONE NORE 

:IF WE HAVE 7. RESTORE R4 

; RESTORE R3 

;SAVE R3 ON THE STACK 

;SAVE R4 ON THE STACK 

;PR1NT A QUESTION HARK... WHAT'S GOING ON? 
:60 PRINT THE MESSAGE AGAIN 
.•RESTORE R4 
; RESTORE R3 

; RE TURN TO THE MAIN PROCEDURE 
TO OCTAL 



;SAVE R5 ON THE STACK 
.•SAVE R4 ON THE STACK 
:6ET THE SETUP INFORMATION POINTER 



H 4 



CVDZA-D NACtn 30(1046) 
CVDZAD.P11 ll-flAR-83 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(U 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(I) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



005726 
005742 
005746 
005752 
005756 
005762 
005766 
005770 
005774 
006000 
006002 
006006 
006010 
006014 
006016 
006022 
006024 
006030 
006032 
006034 
006036 



012537 
012S37 
012537 
112537 
112537 
010566 
005005 
012704 
122714 
001420 
121427 
002415 
121427 
003012 
142714 
152405 
122714 
001406 
006305 
006305 
006305 



ll-nAD-83 

10:06 

006116 
006120 
006122 
006124 
006125 
000004 

010616 
000015 

000060 

000067 

000060 

OOuOIS 
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006040 000760 
006042 104404 
006044 000750 



006046 020537 006120 

006052 101373 

006054 020537 006116 

006060 103770 

006062 133705 006124 

006066 001365 





HOV 


(R5)^,L0LIN 




mv 


(RS)«,HILIN 




NOV 


(R5)*,0EVA0R 




NOVB 


(P5)*,L0BITS 




NOVB 


(R5)*«ADRCNT 




NOV 


R5«4(SP) 


PArAMI : 


CLR 


R5 




NOV 


f INBUF«R4 




CNPB 






BEQ 


PARERR 


IS: 


CNPB 


(R4),f60 




BLT 


PARERR 




CNPB 


|R4) ,*0r 




BuT 


PARcRR 




BICB 


#60. (R4) 




BISB 


(R4)»,R5 




CNPB 


» l9«CR4« 




BcB 


Linus 










ASL 


RS 




ASL 


RS 




BR 


1$ 


PARERR: 


INSTER 






BR 


PARAN1 



;SET THE LOW LINIT FOR THE INPUT 

:SET THE HIGH LINIT FOR THE INPUT 

:SAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 

;GET THE NASK OF THE INCORRECT BITS 

;GET THE COUNT OF I TENS TO BE STORED 

;POINT TO WHERE NAIN LINE PROGRAH WILL RESUNE 

.-INITIALIZE THE ASCII TO OCTAL RESULT WORD 

:POINT TO THE INPUT BUFFER 

:IS THIS CHARACTER A CARRIAGE RETURN? 

:IF SO, PRINT THE NESSAGE AGAIN 

;IS THIS CHARACTER BELOW THE NUNERIC RANGE? 

;IF SO. 60 PRINT THE NESSAGE AGAIN 

:IS THIS CHARACTER ABOVE THE NUNERIC RANGE? 

;IF SO. GO PRINT THE NESSAGE AGAIN 

.•ISOLATE THE NUNBER THE CHARACTER REPRESENTS 

.•CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 

;IS THE NEXT CHARACTER A CARRIAGE RETURN? 

:IF SO. GO SEE IF NUNBER IS WITHIN LINITS 

.•CLEAR BIT POSITION 0. NOVE EXISTING STRING TO LEFT 

.•CLEAR POSITION 1. NOVE STRING TO LEFT AGAIN 

;NOVE THE STRING ONE NORE TINE TO NAKE ROON FOR 

;NEXT THREE BITS 

;G0 GET THE NEXT CHARACTER 

; THERE WAS AN ERROR... GO PRINT NESSAGE AGAIN 

;TRy GETTING THE PARANETERS AGAIN 



;TEST TO SEE IF NUNBER IS WITHIN LiNITS 



• 

LINITS: CNP 


RS.HILIN 


BHI 


PARERR 


CNP 


R5.L0LIN 


BLO 


PARERR 


BITB 


L0BITS.R5 


BNE 


PARERR 



.•DOES RESULT EXCEED ITS HAXINUN CORRECT VALUE? 

;IF YES. GO PRINT THE NESSAGE AGAIN 

;IS THE RESULT LOWER THAN ALLOWED? 

.•IF YES. GO PRINT THE NESSAGE AGAIN 

:ARE ANY INCORRECT BITS SET IN THE RESULT? 

;IF SO. GO PRINT THE NESSAGE AGAIN 



.•STORE NUNBER AT SPECIFIED ADDRESS 



006070 


013704 


006122 




NOV 


006074 


010524 




U: 


NOV 


006076 


062705 


000002 




ADD 


006102 


105337 


0061 25 




DECB 


006106 


001372 






BNE 


006110 


012604 






NOV 


006112 


012605 






NOV 


006114 


000002 






RTI 


006116 


000000 




LOLIN: 


0 


006120 


000000 




HILIN: 


0 


006122 


000000 




DEVAOR: 


0 


006124 


000 




LOBITS: 


.BYTE 


006125 


000 




ADRCNT: 


.BYTE 



DEVADR.R4 

RS.(R4)* 

f2.R5 

ADRCNT 

IS 

(SP)«.R4 
(SP>».R5 



0 
0 



;POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
.•STORE THE RESULT 
.•CALCULATE THE NEXT DATUN 

;REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 
:IF NOT. GO STORE THE NEXT DATUN 
.•RESTORE R4 
.RESTORE R5 

: RETURN TO THE NAIN PROGRAN 

.•LOWEST ACCEPTABLE VALUE 

.•HIGHEST ACCEPTABLE 

.•LOCATION WHERE RESULT WILL BE STORED 

.•INCORRECT BITS NASK 

; COUNT OF ITENS TO BE STORED 



.-SAVE PC OF TEST THAT FAILED AND R0-R5 
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(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1> 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(I) 

<1> 



006126 016637 OOOOOA 00U04 



006134 
006140 
006144 
006150 
006154 
006160 
006164 



006166 
006172 
006176 
006202 
006206 
006212 
006216 



006220 
006224 
006226 
006230 
006232 
006234 
006236 
006242 
006250 
006254 
006256 
006260 
006262 
006266 
006270 
006274 
006300 
006302 
006304 
006306 
006310 

006312 
006314 
006320 
006322 
006326 
006330 
006332 
006334 
006340 



010537 
010437 
010337 
010237 
010137 
010037 
000002 



013700 
013701 
013702 
013703 
013704 
01370S 
000002 



104402 
010046 
010146 
010346 
010446 
010546 
017601 
062766 
012137 
112105 
112100 
013104 
110537 
010403 
042703 
062703 
110346 
006004 
006204 
006204 
005305 

001365 
012703 
112623 
105337 
001374 
105700 
001404 
112723 
10530C 



.SAVOS: nOV 4(SP).SAVPG 
;SAVE RO-RS 



001340 
001336 
001334 
001332 
001330 
001326 



001326 
001330 
001332 
001334 
001336 
001340 



SV05: 



MOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTl 



.RES05: 



001357 



000012 

000002 000012 
006374 



006376 



177770 
000060 



IS: 



3S: 



010660 
006376 

000040 



4S: 



5S: 



RS,>RE65 
R4,tRE64 
R3.SRE63 
R2,tRE62 
RKSREGI 
RO.SREGO 



.•RESTORE R0-R5 



NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTI 



tRE60«R0 
SREGI.RI 
SREG2.R2 
SRE6S.RS 
tRE64.R4 
SRE65«R5 



.•CONVERT OCTAL NUNBER 



TYPE 


.tCRLF 


NOV 


RO.-(SP) 


NOV 


RI.-(SP) 


NOV 


R3,-(SP) 


NOV 


R4,-(SP) 


NOV 


R5.-(SP) 


NOV 


•12(SP).R1 


ADD 


»2.12(SP) 


NOV 


(RD^.VRDCNT 


N0V8 


(R1)«.R5 


NOVB 


(RD^.RO 


NOV 


a(R1>i.R4 


NOVB 


R5.CMRCNT 


NOV 


R4.R3 


SIC 


rc<7>,R3 


ADD 


f060.R3 


NOVB 


R3.-<SP) 


ROR 


R4 


ASft 


R4 


ASR 


R4 


DEC 


R5 


BNE 


3S 


NOV 


ffNDATA.R3 


NOVB 


($P)«.(R3)* 


DECB 


CHRCNT 


BNE 


4S 


TSTB 


RO 


BEQ 


6S 


NOVB 


#040,(R3)» 


DEfB 


RO 



4 



:SAVE R7 (PC) 



.'SAVE R5 
;SAVE R4 
;SAVE R3 
.-SAVE R2 
;SAVE R1 
.•SAVE RO 
; LEAVE. 



.•RESTORE RO 
.•RESTORE R1 
; RESTORE R2 
; RESTORE R3 
: RESTORE R4 
; RESTORE R5 
: LEAVE 

TO ASCII AND OUTPUT TO TELEPRINTER 



PRINT A CARRIAGE RETURN 

SAVE RO 

SAVE R1 

SAVE R3 

SAVE R4 

SAVE RS 

PLACE THE ADDRESS OF THE AR6UNENTS IN R1 

POINT TO WHERE NAIN PROGRAN WILL RESUNE 

GET NUNBER OF WORDS TO BE PRINTED 

GET THE NUNBER OF CHARACTERS TO BE PRINTED 

GET THE NUNBER OF SPACES TO PRINT 

COPY THE WORD TO BE CONVERTED 

COPY THE CHARACTER COUNT 

COPY THE AR6UNENT WORD AGAIN 

ISOLATE THREE BITS TO BE TREATED AS A CHARACTER 

NAKE AN ASCII CHARACTER OUT OF THEN 

SAVE THAT CHARACTER 

NOVE THE NEXT THREE BITS INTO PLACE 

NOVE THEN AGAIN 

AND FINALLY A THIRD TINE 

REDUCE CHARACTER COUNT.ARE ALL CHARACTERS 

BUILT? 

IF NO. 60 BUILD THE NEXT ONE. 

NOW POINT TO WHERE NUNBER WILL BE PRINTED FRON 

STORE THE CHARACTER. STARTING WITH THE NOST 

REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 

IF NO. 60 TRANSFER ANOTHER 

ARE ANY SPACES TO BE PRINTED? 

IF NO. DON'T SET UP ANY 

ADD A SPACE TO THE OUTPUT BUFFER 

REDUCE THE COUNT. SHOULD WE PRINT NORE? 



J 4 
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(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



006342 001374 

006344 10S013 

006346 104402 010660 

006352 005337 006374 

006356 001336 

006360 012605 

006362 012604 

006364 012603 

006366 012601 

006370 012600 

006372 000002 

006374 000000 

006376 000 

006377 000 

006400 000000 



6S: 



WRDCNT 
CNRCNT 
SPACNT 



BNE 

CLRB 

TYPE 

DEC 

8NE 

NOV 

NOV 

MOV 

MOV 

MOV 

RTI 

0 

.BYTE 
.BYTE 



5S 

(R3} 

«MDATA 

HOOCNT 

IS 

(SP)*,R5 
(SP)*.R4 
(SP>*.R3 
(SP)«.R1 
(SP}«.RO 



ilf YES, 60 ADD ANOTHER SPACE 

; TERMINATE THE OUTPUT BUFFER WITH A ZERO 

.•PRINT THE STRING VE JUST BUILT 

.•REDUCE THE WORD COUNT. ARE ANY MORE UORDS LEFT? 

;IF YES. GO CONVERT THEM 

.•RESTORE R5 

: RESTORE R4 

jRESTORE R3 

: RESTORE R1 

: RES TORE RO 

; RETURN TO THE MAIN PROGRAM 

.•NUMBER OF CHARACTERS TO PRINT 
: NUMBER OF SPACES TO PRINT 



BINURD: 0 



;TRAP DISPATCH SERVICE 
.•ARGUMENT OF TRAP IS EXTRACTED 
:AND USED AS OFFSET TO OBTAIN POINTER 
:T0 SELECTED SUBROUTINE 



006402 010046 

006404 016600 000002 

v'MIO 005740 

006412 111000 

006414 006300 

006416 016000 001742 

006422 000200 



006424 

006424 052777 000020 

006432 032777 000020 

006440 001374 

006442 000002 



006444 104413 

006446 153777 001424 

006454 000002 

006456 

006456 010046 

006460 013700 006474 

006464 005300 

006466 001376 

006470 012600 

006472 000002 

006474 000001 



.TRPSR: MOV 
MOV 
TST 
NOVB 
ASL 
MOV 
RTS 



RO.-(SP) 
2(SP).R0 
-(RO) 
(RO) .RO 
RO 

.TRPTAB(RO).RO 
RO 



:SAVE RO. USE RO TO FIND TRAP ROUTINE 
:GET TRAP ADDRESS 
:6ET TRAP 

:GET RIGHT BYTE OF TRAP(TRAP OFFSET) 
.•POSITION OFFSET FOR TABLE INDEXING 
:PLACE INDEXED ADDRESS OF TABLE IN RO 
.•TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 



;DEVICE CLEAR ROUTINE 
.•ISSUE A DEVICE CLEAR 



173356 
173350 



.DEVICE. CLR: 
BIS 

1$: BIT 
BNE 
RTI 



fOCLR.aOZVCSR 
fOCLR.aOZVCSR 
U 



;SET DCLR 
;0ID IT CLEAR? 
:BR IF NO 
:EXIT ROUTINE 



:ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 



173334 



.DCLASM:DEVICE.CLR 

BISB HNTFLG.aOZVCSR 
RTI 



.DELAY: 



IS: 



DLVCNT: 



MOV 
MOV 
DEC 
BNE 
MOV 
RTI 
.UORD 



RO.-(SP) 

DLYCNT.RO 

RO 

U 

(SP)^.RO 
1 



: ISSUE A DEVICE CLEAR 

:LOAD THE MAINTENANCE BIT IF IT IS I MODE 
.•RETURN TO CALLING ROUTINE 



:SAVE RO 
:SET COUNT 
; DELAY 

;RESTORE RO 
: LEAVE ROUTINE 

;PATCHABLE LOC FOR MORE TIME 



:AOVANCE TO NEXT TEST HANDLER 



K 4 



CVOZA-0 MAC til 50(1046) n-BAR-83 
CV0ZA0.P11 ll-nAR-83 10:06 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 



006476 013716 001362 
006502 00S037 001364 
006S06 000002 



006S10 106302 

006512 032702 000020 

006516 001402 

006520 022626 

006522 104400 

006524 000002 
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.ADVANCE :nOV NEXT.($P) ; CRUNCH STACK WITH ADDRESS OF SCOPE CALL 

CLR LOCK .-RESET TIGHT LOOP ADDRESS 

RTI .CHECK TO SEE IF OLD TEST GETS REPEATED 

ROUTINE TO SHIFT LINE POINTER 
AND SWITCH TESTS IF NECESSARY 



.SHIFT: ASLB R2 

BIT fBIT4.R2 

BEQ It 

P0P2SP 

ADVANCE 
U: RTI 



:POINT TO THE NEXT LINE 

;HAVE WE PASSED ALL LINE POINTERS? 

;IF NOT, RETURN TO THE TEST 

; REMOVE THE TRAP CALL FROM THE STACK 

:G0 TO THE NEXT TEST 

.•RETURN TO THE PRESENT TEST 



I 4 
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SEO SO 



(1) 
(1) 
CI) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

(2) 
(3) 
(2) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



;L!NE PARAMETER REGISTER SETUP ROUTINE 



WOjCO 


Aim Lt^ 




1 DDCPT 'Mnu 








MOW 






UU 1 Jiv 






01 ?70? 


000001 


MOV 


006S42 


010177 


173252 


It: MOV 


006546 


005201 




INC 


006SS0 


106302 




ASLB 


006S52 


032702 


000020 


BIT 


006556 


001771 




BEQ 


006560 


012602 




MOV 


006562 


012601 




mv 


006564 


00U002 




RTI 



R1.-(5P) 
R?.-<SP) 
PAR.RI 

«1,R2 :INIT. 
R1 .aOZVLPR 
R1 
R2 

«BIT4,R2 
1$ 

(SP)*,R2 
(SP)«.R1 



.-SAVE CONTENTS OF R1 
;SAVE CONTENTS OF R2 
;HOVE DEFAULT PARAM. INTO R1 
FOR LINE 1 
:LOAD PARAM. REGISTER 
;SET R1 FOR NEXT LINE 
:SET R2 FOR NEXT LINE 
:ALL LINES DONE? 
:IF NO LOAD NEXT LINE 
: RELOAD R2 
{RELOAD R1 
.•RETURN 



: ROUTINE TO ZERO DATA BUFFER 



006566 
006570 
006574 
006576 
006602 
006604 
006606 



010046 
012700 
005020 
022700 
001374 
012600 
000002 



001426 
001446 



.BUFSETzMOV 
MOV 

1$: CLR 
CMP 
BNE 
MOV 
RTI 



RO.-(SP) 

«TDO.RO 

(RO)^ 

fSTOP.RO 

U 

(SP)«,RO 



;SAVE CONTENTS OF RO 
:SET RO TO TOP OF BUFFER 
; CLEAR BUFFER LOCATION 
;IS BUFFER ALL CLEARED 
;IF NOT CLEAR NEXT LOCATION 
; RELOAD RO 
: RETURN 



.SBTTL ABORT ROUTINE FOR LCP/ORION UFD MDE 





000040 






UFDSBIT5 


fUFD,52 


006610 


032737 


000040 


000052 


ABORT: 


BIT 


006616 


001420 








BEQ 


AB0RT2 


006620 


013737 


002152 


000030 




NOV 


SAVSO.30 


006626 


013737 


002154 


000032 




MOV 


SAV32,32 


006634 


104042 








ENT 


♦42 


006636 


012760 


177777 


000042 




MOV 


#•1 .42(R0) 


006644 


013700 


000042 




AB0RT1 : 


nov 


42«R0 


006650 


005037 


000042 






CLR 


42 


006654 


000137 


004416 






JMP 


$ENOAO 


006660 


000207 






A80RT2: 


RTS 


PC 



.•TEST FOR USER FRIcNDLY MODE 

:IF NOT UFD THEN CONTINUE NORMAL OPERATION 



{RESTORE ENT LOCATION (30) 
{RESTORE ENT PRIORITY LOCATION (32) 
;GET DCA LOCATION INTO RO FRON MONITOR 
:SET A -1 INTO LOCATION DRSERR IN MONITOR 
;AND PUT THE MONITOR RETURN ADDRESS IN RO 
{CLEAR MONITOR RETURN FLAG 
{RETURN TO NONITOR-00 NOT PUSH STACK HERE 
{IF NOTUFD RETURN TO MAINLINE 



{ERROR HANDLER 



006662 004737 096610 

006666 004737 007320 

006672 032777 010000 172404 

006700 001406 

006702 105777 172406 

006706 100003 



SERROR: JSR 


PC. ABORT 


JSI 


PC.SERV.6 


BIT 


fSUl2.aSUR 


BEQ 


XBX 


TSTB 


BflPS 


BPL 


XBX 



{CHECK IF UE ARE UNDER UFD 
{FIND OUT IF <*G> UAS HIT 
{BELL ON ERROR? 
{BR IF NO BELL 
{TTY READY. 

{DON'T WAIT IF TTY NOT READY. 
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ABORT ROUTINE 


(1) 


006710 


112777 


000207 


1 AA 

1 72400 




novB 


(1) 


006716 


032777 


0^0000 


172360 


XBX: 


BIT 


(1) 


006724 


001113 








BNE 


(1) 


006726 


021637 


vOI 262 






CMP 


(1) 


006732 


001404 








BEQ 


(1) 


006734 


011637 


001262 






MOV 


(1) 


006740 


105037 


00124/ 






CLRB 


(1) 


006744 


104407 






1$: 


SAV05 


(1) 


006746 


011605 








nov 


(1) 


006750 


162705 


000002 






SUB 


(1) 


006754 


011504 








NOV 


(1) 


006756 


110437 


Am OXA 

001260 






mvB 


(1) 


006762 


006304 








ASL 


(1) 


006764 


061504 








ADD 


(1) 


006766 


006304 








ASL 


<1) 


006770 


042704 


\ 77AA1 






BIC 


(1) 


006774 


062704 


01 oAOc 






ADD 


(1) 


007000 


012437 


AA71 "iL 
OOf 1<* 






NOV 


(1) 


007004 


012437 


130 






NOV 


(1) 


007010 


011437 


CA 






NOV 


(1) 


007014 


105737 


001 c^r 






TSTB 


(1) 


007020 


001403 








BEQ 


(1) 


007022 


005737 


OOf 130 






TST 


(1) 


007026 


001044 








BNE 


(1) 


007030 


104402 


Am TV? 
0Uld3r 




TYPMS6: 


TYPE 


(1) 


007034 


104402 


001 33f 






TYPE 


(1) 


007040 


005737 


00130% 






TST 


(1) 


007044 


001402 








BEQ 


(1) 


007046 


104402 


01 0c33 






TYPE 


(1) 


007052 


104402 


OlOccI 




IS: 


TYPE 


(1) 


007056 


104412 


OUf 31c 






CNVRT 


(1) 


007062 


104402 


010313 






TYPE 


(1) 


007066 


104412 








CNVRT 


(1) 


007072 


104402 


MM AX 
010103 






TYPE 


(1) 


007076 


104412 


UUHH3C 






CNVRT 


(1) 


007102 


104402 


UU 1 33 r 






TYPE 


(1) 


007106 


112737 


177777 

\fffff 


AA1 3£7 
001 C*r 




NOVB 


(1) 


007114 


005737 


AA71 31, 
OOr 1c* 






TST 


(1) 


007120 


001402 








BEQ 


(1) 


007122 


104402 








TYPE 


(1) 


007124 


000000 






ERRHSG: 


0 


(1) 


007126 








yTBS.FH: 


(1) 


007126 


005737 


/ A71 Xl^ 
VUf 130 






TST 


(1) 


007132 


001402 








BEQ 


(1) 


007134 


104402 








TYPE 


(1) 


007136 


000000 






DATAHD: 


0 


(1) 


007140 


005737 


AA71 cn 
OOr 130 




TYPOAT: 


TST 


(1) 


007144 


001402 








BEQ 


(1) 


007146 


104411 








CONVRT 


(1) 


007150 


000000 






DATA6P: 


0 


(1) 


007152 


104410 






RESREG: 


RES05 


(1) 


007154 


122737 


AAAAA1 
WvW 1 


001140 
WW 1 1 ^w 


HALTS: 


CNPB 


(1) 


007162 


001007 








BNE 


(1) 


007164 


113737 


001260 


007176 




NOVB 


(1) 


007172 


004737 


005352 






JSR 


(1) 


007176 


000000 






5$: 


.UORD 



NODE 

;PUSH A BELL AT THE TTY. 

.'DELETE ERROR PRINT OUT? 

;BR IF NO PRINT OUT WANTED. 

:UAS THIS ERROR FOUND LAST TINE? 

:BR IF YES 

: RECORD BEING HERE 

.•PREPARE HEADER 

.'SAVE ALL PROC REGISTERS 

;GET THE PC OF ERROR 

:GET ADDRESS OF TRAP CALL 

;GET ERROR INSTRUCTION 

;COPY TEST NUNBER FOR APT HANDLING 

;NULT BY TWO 

; DOUBLE IT 

:NULT AGAIN 

.•CLEAR JUNK 

:GET POINTER 

:GET ERROR NESSAG^ 

;6ET DATA HEADff^' 

:6ET DATA TABLfe 

.•TYPE HEADER 

;BR IF YES 

:DOES DATA TABLE EXIST? 
:BR IF YES. 

.'TYPE A CARRIAGE RETURN 
;AND TYPE ANOTHER 



:SHOU IT 
.•TYPE PC. 
;SHOU IT 



GIVE A CR/LF 

NO NORE HEADER UNLESS NO DATA TABLE. 
IS THERE AN ERROR NESSAGE? 
BR IF NO. 
TYPE 

ERROR MESSAGE 

DATA HF^DER? 
BR IF NO 
TYPE 

DATA HEADER 
DATA TABLE? 
BR IF NO. 
SHOW 

DATA TABLE 
RESTORE PROC REGISTERS 
IS APT RUNNING? 
SKIP APT CALL IF NOT 
COPY ERROR NUNBER 
CALL APT SERVICE 
ERROR NUNBER STUCK HERE 
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ABORT ROUTINE 


(1) 


007200 


000777 






10S: 


BR 


(1) 


007202 


022737 


004416 


00004? 


15$: 


CHP 


(1) 


007210 


001403 








BEQ 


(1) 


007212 


005777 


172066 






TST 


(1) 


007216 


100006 








BPL 


(1) 


007220 


016677 


000002 


1 7?0M 


20S: 


HOV 


(1) 


007226 


004737 


006610 






JSR 


(1) 


007232 


000000 








HALT 


(1) 


007234 


005237 


001256 




EXITER: 


INC 


(1) 


007240 


004737 


007320 






JSR 


(1) 


007244 


032777 


000400 


179012 




BIT 


(1) 


007252 


001007 








BNE 


(1) 


007254 


032777 


002000 


172022 




BIT 


(1) 


007262 


001407 








BEQ 


(1) 


007264 


013737 


001362 


001 2S2 




NOV 


(1) 


007272 


012706 


001120 




IS: 


nov 


(1) 


007276 


000177 


171750 






JMP 


(1) 


007302 


000002 






2S: 


RTI 


(1) 


007304 


000001 






ERTABO: 


1 


(1) 


007306 


006 


002 






.BYTE 


(1) 


007310 


001404 








SAVPC 


(1) 


007312 


000001 






XTSTN: 


1 


(1) 


007314 


002 


002 






.BYTE 


(1) 


007316 


001246 








STSTM 


(1) 


007320 


017746 


171766 




SERV.6: 


MOV 


(1) 


007324 


042716 


000200 






BIC 


(1) 


007330 


122726 


000007 






CMPB 


(1) 


007334 


001076 








BNE 


(1) 


007336 


032777 


004000 


1 71 744 




BIT 


(1) 


007344 


001365 








BNE 


(1) 




007346 






6ETSyR> 


• 


(1) 


007346 


017737 


171732 


007554 




HOV 


(1) 


007354 


104402 


007534 




IS: 


TYPE 


(1) 


007360 


104412 


007546 






CNVRT 


(1) 


007364 


104402 


007556 






TYPE 


(1) 


007370 


105037 


007562 






CLRB 


(1) 


007374 


005077 


171704 






CLR 


(1) 


007400 


105777 


171704 




3S: 


TSTB 


(1) 


007404 


100375 








BPL 


(1) 


007406 


017746 


171700 






NOV 


(1) 


007412 


042716 


000200 






BIC 


(1) 


007416 


122726 


000015 






CMPB 


(1) 


007422 


001433 








BEQ 


(1) 


007424 


105777 


171664 




2S: 


TSTB 


(1) 


007430 


100375 








BPL 


(1) 


007432 


105237 


007562 






INCB 


(1) 


007436 


014677 


171654 






NOV 


(1) 


007442 


000241 








CLC 


(1) 


007444 


006177 


171634 






ROL 


(1) 


007450 


006177 


171630 






ROL 


(1) 


007454 


0061 77 


171624 






ROL 


(1) 


007460 


103735 








BCS 


(1) 


007462 


022627 


000060 






CNP 


(1) 


007466 


002732 








8LT 


(1) 


007470 


026627 


177776 


000067 




.NP 


(1) 


007476 


003326 








B6T 



N 4 



SEO 52 



FOR LCP/ORION UFD MODE 



10S 


LOCK UP HERE 


tlFMQAft a#&2 


rUFFK TO CFP IF IN AfT^II MOAF 
cncw^ lu dec i> I*, I II nvi/c 


201 


■IF SO. HANDLE ACCORDINGLY 




HALT ON FRRQR^ 




BR IF NO HALT ON FRROR 




>SMOU FRROR Pt IN hklk OlSPlAV 


pr ARQRT 


-AR^ UP UMD^R UFD ^ 
'HALT 


SERTTL 

#fcn Ilk 


■UPDATE ERROR COUNT 
■FIfJD OUT IF *6 UAS TYPED 

1 r ^nir vw 1 A r w wni# i ■ r b v 




fsuos.asuR 


;60T0 TOP OF TEST? 


IS 


;BR IF YES 


fsuio.asuR 


;60T0 NEXT TEST? 


2S 


;BR IF NO 


NEXT.SLPADR 


;SET FOR NEXT TEST 


f STACK. SP 


;RESET SP 


aSLPADR 


;60T0 SPECIFIED TEST 
; RETURN 



6.2 



2.2 

aSTKB,-(SP) 
fBIT7.(SP) 
f7,(SP)* 
6S 

f4000.aSTKS 
SERV.G 

aSUR.90S 

.89S 

.88S 

.91S 

92$ 

asuR 

aSTKS 
3$ 

aSTKB.-(SP) 
fBIT7.(SP) 
#15. (SP)* 
4$ 

a$TPs 

2$ 
92$ 

-(SP>,a$TPB 

asvR 
asuR 
asuR 
1$ 

(SP)*.#60 
1$ 

-2<SP).f67 
1$ 



;OTHERyiSE. GET THE LAST CHARACTER TYPED 
.•STRIP PARITY(EIGHTH) BIT 
;IS IT -G? 

;IF NOT. IGNORE INPUT 
;RX BUSY? 
;BR IF YES 

;;GPA 

SAVE (SUR). 

TYPE HEADER FOR OLD SWITCH REGISTER 

TYPE THE NUMBER ITSELF 

AFTER HAVING CONVERTED IT TO ASCII 

CLEAR SUR CHANGE FLAG 

CLEAR THE SOFTUARE SWITCH REGISTER 

WAIT FOR DONE. 

CONTINUE WAITING FOR !T 

PUT THE CHARACTER ON THE STACK 

STRIP PARITY BIT 

IS IT THE CARRIAGE RETURN CHAR? 

IF SO. GO PRINT CRLF 

IS THE OUTPUT BUFFER AVAILABLE 

IF NOT. WAIT FOR IT TO BE READY 

INDICATE THAT THE SWR WAS CHANCED 

PLACE THE CHARACTER THERE (ECHO BACK) 

GET READY TO ROTATE 

MOVE THE EXISTING BITS OVER 

TO HAKE ROON FOR THE INCOHING 

THREE BITS FRON THIS CHARACTER 

ERROR 

IS IT LOWER THAN 0? 
IF SO. GO ASK AGAIN 
IS IT HIGHER THAN 7? 
IF SO. 60 ASK AGAIN 
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ABORT ROUTINE FOR LCP/ORION UFO NODE 



SEQ 53 



(1) 007500 

<1) 00750A 

(1) 007510 

(1) 007512 

(1) 007516 

(1) 007520 

(1) 007526 

(1) 007532 
(1) 

(1) 00753A 

(1) 007542 
(1) 

(1) 007546 

(1) 007550 

(1) 007552 

(1) 007554 

(1) 007556 

(1) 007562 
(1) 

(2) 
(2) 
(3) 
(2) 

(2) 007564 
(2) 007572 
(4) 007600 
(4) 007602 
(4) 007604 
(4) 007606 
(4) 007610 
(4) 007612 
(4) 007614 
(2) 007620 
(2) 007624 
(2) 007632 
(2) 007634 
(2) 

(3) 
(2) 

(2) 007636 

(2) 007644 

(2) 007650 

(2) 007654 

(2) 007660 

(4) 007662 

(4) 007666 

(4) 007670 

<4) 007672 

(4) 007674 

(4) 007676 

(4) 007700 

(2) 007702 

(2) 007710 

(2) 007716 

(2) 007720 

(2) 007722 



042746 
052677 
000733 
105737 
C01003 
013777 
104402 
000207 

020200 
036451 

000001 
006 
007554 
000000 
036457 
000 
007564 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 
013736 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104402 
007736 
012716 



177770 
171574 

007S62 

007S54 
001 3S7 



051450 
0000S7 



000 
000057 



007730 
000340 



171464 
007734 
007636 



007730 
007734 
007734 
007734 

17U16 



007564 
000340 



171556 
051127 





BIC 


#*C<7>,-(SP) 


.■ISOLATE INFORMATION BITS 




A f C 

BIS 


/ f m A. A^ft Ilk 

(SP)^,iSUR 


;ADD THEM TO THE SWITCH REGISTER 




BR 


3$ 


:60 CHECK FOR THE NEXT CHARACTER 


4$: 


TSTB 


9?$ 


:HAS THE SWR BEEN CHANGED? 




BNE 


5$ 


;IF YES 60 TYPE CRLF 




MOV 


90t.aSUR 


;IF NOT RESTORE SUR 


5$: 


TYPE 


.SCRLF 


;TVPE A CARRIAGE RETURN AND LINE FEED 


6S: 


RTS 


PC 


: RETURN TO CALLING PROCEDURE 


89$: 


.ASCIZ 


<200>? (SUR>«/? 





.EVEN 
88$: 



90S: 

91$: 

92$: 

.EVEN 

.SBTTL 



1 

.BYTE 6.0 
90$ 

.yORO 0 
.ASCIZ 
.BYTE 0 

POWER DOWN AND UP ROUTINES 



000024 
000026 



: POWER DOUN ROUTINE 



000024 



$PURDN: NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
HALT 
BR 



«$ILLUP.a«PURVEC 
#340.a#PWRVEC^2 
RO.-CSP) 
R1.-<SP) 
R2,-(SP) 
R3.-(SP) 
R4,-(SP) 
R5,-(SP) 
aSUR,-(SP) 
SP,$SAVR6 

«$pyRUP.a«PURvEC 

.-2 



.SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH R1 UN STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 

:SET UP VECTOR 



;:HAN6 UP 



000024 $PURUP: 



1$: 



.-POWER UP ROUTINE 



000024 
000026 



$PURN6: 



NOV #$ILLUP,afPURVEC 

NOV $SAVR6,SP 

CLR $SAVR6 

INC $SAVR6 

BNE 1$ 

NOV (SP)*,aSUR 

NOV <SP)*.R5 

NOV (SP)^«R4 

NOV (SP)^.R3 

NOV (SP)^,R2 

NOV <SP)*.R1 

NOV (SP)«.RO 

NOV #$PURDN«afPURVEC 

NOV #340,a«PURVEC«2 
TYPE 

.WORD NPFAIL 

NOV (PC)«,(SP) 



:SET FOR FAST DOUN 
GET SP 

WAIT LOOP FOR THE TTV 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO aSWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

:SET UP THE POWER DOWN VECTOR 

PRI0:7 

REPORT THE POWER FAILURE 
POWER FAIL NESSAGE POINTER 
RESTART AT RESTART 



tvOZA*D 


nACYl 1 


30(1046) 


n-RAR-o3 10:13 PAGE 


10-37 


CV0ZA0.P11 


l1-n^R-83 10:06 




POWER DOWN AND 


(2) 


007724 


011266 






tPWRAO: 


.WORD 


(2) 


007726 


000002 








RTI 


(2) 


007730 


000000 






tiLLUP: 


HALT 


(2) 


007732 


000776 








BR 


(2) 


007734 


000000 






SSAVR6: 


0 


(2) 


007736 


050200 


051127 


A/ TA/ A 

043040 


MPFAIL: 


.ASCIZ 


(2) 


010001 


200 


047105 


020104 


MEPASS: 


.ASCIZ 


(2) 


010025 


200 


052522 


A/ 71 1 £. 

04r1 16 


RR: 


.ASCIZ 


(2) 


010041 


200 


051120 


043)1 1 


MERR2: 


.ASCIZ 


(2) 


010110 


044600 


051516 


A/ ^1 

043125 


nERR3: 


.ASCIZ 


(2) 


010134 


046200 


041517 


OeO 1 1 3 


MLOCK: 


.ASCIZ 


(2) 


010163 


103 


051123 


VcQQfi 


nCSRX: 


.ASCIZ 


(2) 


010171 


126 


041505 


VCW/fC 


MVECX: 


.ASCIZ 


(2) 


010177 


120 


051501 




HPASSX: 


.ASCIZ 


(2) 


010210 


051105 


047522 


AC1 C99 


MERRX: 


.ASCIZ 


(2) 


010221 


124 


051505 


A3A1 9Z 


MTSTN: 


.ASCIZ 


(2) 


010233 


052 


000040 




HASTEK: 


.ASCIZ 


(2} 


010236 


052200 


050131 


A9A10C 


HNEW: 


.ASCIZ 


(2) 


010313 


120 


035103 


AAA AAA 


MERRPC: 


.ASCIZ 


(2) 


010320 


046600 


050101 


U4f44U 


XHEAD: 


.ASCIZ 


(2) 


010346 


044600 


0461 U 


U433w> 


MBAOLN: 


.ASCIZ 


(2) 










.EVEN 




(2) 


010410 


000002 






XSTATQ: 


2 


(2) 


010412 


006 


003 






.BYTE 


(2) 


010414 


001344 








iTNPI 


(2) 


010416 


006 


002 






.BYTE 


(2) 


010420 


001346 








tTflP2 


(1) 










.EVEN 





C 5 



UP ROUTINES 

RESTART ::RESTART ADDRESS 

;;THE POWER UP SEQUENCE WAS STARTED 
;: BEFORE THE POWER DOWN WAS COMPLETE 
' 'PUT THE SP HERE 

<200>/PWR FAILEd'.'rESTART AT LAST TEST / 

<200>/END PASS CVDZA-D / 

<200>/RUNNIN6 / 

<200>/PR06RAM indicates NO DEVICES PRESENT./ 
<200>/ INSUFFICIENT DATA!/ 
<200>/LOCK ON SELECTED TEST/ 

/CSR: / 
/VEC: / 
/PASSES: / 
/ERRORS: / 
/TEST NO: / 
/• / 

<200>/TYPE A BIT NAP OF OZVII'S DESIRED ACTIVE: / 
/PC: / 

<200>/NAP OF DZV11 STATUS/<200> 

<200>/ ILLEGAL ENTRY IN STAGGERED MODE/<200> 



6.3 
6,2 



(2) 
iZ) 
(2) 
(2) 

(2) 

(2) 010422 01760S 

(2) 010426 042737 

(2) 010434 122737 

12) 010442 001 OOS 

(2) 010444 01 371 S 

(2) 0104S0 10S037 

(2) 0104S4 000422 

(2) 010456 122737 

(2) 010464 001006 

(2) 010466 013715 

(2) 010472 112737 

(2> 010500 000410 

(2) 010502 122737 

(2) 010510 001007 

(2) 010512 013715 

(2> 010516 105037 

(2) 010522 062716 

(2) 010526 000002 

(2) 010530 104404 

(2) 010532 000733 

(2) 010534 000200 

(2) 010536 000000 

(2> 010540 100000 



000000 .SETFL6 
000040 010616 
000105 010616 

010534 
001424 

Doom 010616 4$: 
010536 

000010 001424 

000123 CI 061 6 SS: 

010540 
001424 

000002 7S: 

6$: 

IS: 
2S: 
3S: 



D 5 

THIS ROUTINE ESTABLISHES WHICH MAINTENANCE NODE THE DEVICE IS IN 



SEQ 55 



E^EXTERNAL LOOP BACK 
I -INTERNAL LOOP BACK 
S-STAG6ERE0 LOOP BACK 



MOV 


a(SP),R5 


PICK UP ADDRESS OF TAG 


BIC 


f'OjNBUF 
f'E.iNBUF 


STRIP LOWER CASE 


CHPB 


IS IT EXTERNAL LOOP BACK ? 


BNE 


4S 


NO 


MOV 


1$,(R5> 


YES STORE INFO 


CLRB 


NNTFL6 


-SET NAINT BIT =0 


BR 


7$ 

ffMJNBUF 


GET OUT 


CNP8 


IS IT INTERNAL LOOP BACK ? 


BNE 


5S 


;N0 


NOV 


2S,(R5) 


YES STORE INFO 


HOVB 


#NAINT,NNTFL6 


;SET UP THE NAINTENANCE FLAG LOADER 


BR 


7$ 


iGET OUT 


CHPB 


f'S.INBUF 


;IS IT STAGGERED LOOP BACK ? 


BNE 


6$ 


;UHAT ? 


NOV 


3$,(RS) 


;YES STORE INFO 


CLRB 


nntflg 


;ZERO BITS 


ADO 


#2.(SP) 


;POP AROUND 


RTI 






INSTER 




; RETRY 


BR 


.SETFLG 


?DITTO 


.WORD 


200 


{EXTERNAL = E 


.yORD 


0 


; INTERNAL « I 


.WORD 


100000 


{STAGGERED - S 



i 



E S 



CVDZA-D HACY11 ^0(1046) ll-nAft-63 



CVDZA0.P11 


n-MAR-B3 


(2) 






(2) 






(2) 






(2) 






(2) 






(2) 


0i0S42 


017605 


(2) 


010)46 


142737 


<2) 


A4 AC 

010554 


122737 


(2) 


A4 ACX^ 

010562 


001002 


(2) 


010564 


105015 


(2) 


A4 ACXX 

010566 


000406 


(2) 


A4 AC7A 

010570 


122737 


(2) 


Ai AC9^ 

010576 


001005 


\2) 


A4 AAAA 

010600 


112715 


(2) 


010604 


062716 


(2) 


010610 


000002 


(2) 


010612 


104404 


(2) 


A1 AX.4#. 

010614 


000752 


(2) 






f 9\ 
C2) 






/9\ 
icl 






f 9\ 


010616 


000000 






010660 


(2) 






(2) 






(2) 


010660 


000000 


(2) 




010722 


(2) 







10:13 PAGE 10-39 

POWER DOWN AND UP ROUTINES 



SEO 56 



; COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
.-BUFFER TO THE CHARACTERS "E" AND "C". 
:1F THE CHARACTER IS "E" CLEAR THE FLAG 
;If THE CHARACTER IS "C" SET THE FLAG 



000000 
000040 
000105 



010616 
010616 



000103 010616 1$: 



177777 
000002 



.PAWCH:NOV 

BICB - 
CMPB 
BNE 
CLRB 
BR 
CMPB 
BNE 
HOVB 
ADD 
RTI 

INSTER 
BR 



2t: 
3$: 



a(SP),R5 

«40JNBUF 

f*E.lNBUF 

IS 

(R5) 

2S 

f'C.INBUF 
3$ 

ff-1.(R5) 
«2,(SP) 



;SET FOR LOWER CASE INPUT 
;IS IT "E" ? 

:000 

;IS IT "C" ? 
;3177 



INBUF : 
.=.♦40 
; TENP 
; .s.*40 
HDATA: 0 
.=.♦40 



.PAWCH 

.'BUFFERS FOR INPUT-OUTPUT 
0 

0 



;RETRY 



: TENP AREA UNUSED. 
: DELETED TO CONSERVE SPACE 



;;6PA 
;;6PA 



CVDZA-0 NACY11 30(1046) ll-nAR-83 10:15 PAG 
CVDZA0.P11 U-MAR-85 10:06 POWER 

(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 

(2) 010722 005737 00U06 CYCLE: 

(2) 010726 001006 

(2) 010730 104402 010041 

(2) 010734 004737 006610 

(2) 010740 000000 

(2) 010742 000776 

(2) 010744 013737 004724 001354 IS: 

(2) 010752 033737 001412 001406 

(2) 010760 001017 

(2) 010762 006137 001412 

(2) 010766 005537 001412 

(2) 010772 062737 000012 001420 

(2) 011000 022737 001740 001420 

(2) 011006 001356 

(2) 011010 012737 001500 001420 

(2) 011016 000752 

(2) 011020 006137 001412 2%: 

(2) 011024 00SS37 001412 

(2) 011030 013700 001420 

(2) 011034 062737 000012 001420 

(2) 011042 022737 001740 001420 

(2) 

(2) 011050 001003 

(2) 011052 012737 001500 001420 

(2) 011060 012037 001174 3$: 

(2) 011064 012037 002040 

(2) 011070 012037 001366 

(2) 011074 012037 001370 

<2> 011100 012037 001372 

<2) 011104 105037 001424 

(2) 011110 005737 001372 

(2) 011114 001003 

(2 ) 011116 112737 000010 00U24 

(2) 011124 004737 011272 91: 

(2) 011130 005737 000042 

(2) 011134 001051 

(2) 011136 032777 000002 170140 

(2) 011144 001445 

(2) 011146 104402 001357 4$: 

(3) 011152 104403 
<3) 011154 010221 
(3) 011156 104405 
(3) 011160 000001 
(3) 011162 001000 
(3) 011164 001246 
(3) 011166 000 
(3) 011167 001 



F 5 



AND UP ROUTINES 



;R0UTINE USED TO "CYCLE" THROUGH UP TO SIXTEEN DZVII'S 
;THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIACNOSTIC 
;AND RUNS TNt SPECIFIED DZVII'S. THIS ROUTINE •I'lUST* 
:BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
:SETUP NECESSARY. 



TST 


bTVAPTW 


•ABF AMY B7V11*$ TO TFCTPA? 




It 

1 9 


.DO ic ntr 

•NO D7V11*S SFLECTFD*! 


TYPF 


MFRR2 






•ARF UF IINDFR UFA 1 


HALT 




•STOP THE SHOU 


BR 


.-2 


: DISQUALIFY CONT. SW. 


NOV 


MXCNT (TIMES 


•RESTORE THE MUMER OF ITERATIONS TO MAKE 


BIT 

WAV 


RUN DZVACTV 


•IS THIS ONE "ACTIVE" 


BNE 


2% 


•BR IF GOOD ONE FOUND 


RQL 


RUN 


:UPDATE POINTER 


ADC 


RUN 


: CATCH CARRY FROM RUN 


ADD 


#12. ACTIVE 


•UPDATE ADDRESS POINTER 




#DZV. END. ACTIVE 


•HAVE UE PASSED THE END OF THE NAP'' 


BNE 


1$ 


:IF NO. KEEP GOING* NOT ALL TESTED FOR. 

9 M* ■■W # nfc WW A f^V 9 ■■W ■ nb W ■ W w ' W V • wn • 


NOV 


fDZV.MAP.ACTlVE 


;RESET ADDRESS POINTER. 


BR 


U 


;KEEP LOOKING FOR ACTIVE DZVll 


ROL 


RUN 


;UPDAT£ POINTER. 


ADC 


RUN 


.-CATCH CARRY. 


NOV 


ACTIVE«R0 


;GET ADDRESS POINTER. 


ADD 


f12.ACTlVE 


: UPDATE. 


CMP 


fOZV.END.ACTlVE 


;ALL DONE? 


BNE 


3S 


:BR IF NO. 


NOV 


fDZV. MAP. ACTIVE 


:RESTORE POINTER. 


MOV 


(RO)^.tBASE 


.'LOAD SYSTEM CTRL. REG 


MOV 


(R0)«.DZVRIV 


:LOAD VECTOR 


MOV 


(R0)».L1NE 


;SET UP DZV LINES ACTIVE 


HOW 


(RO)*«PAR 


;SET UP PARAMETERIZATION 


MOV 


(RO)».HQDE 


: SET UP MAINTENANCE MODE 




HNTFL6 ;RESET MAINT. FLAG IF 


TST 


NODE 


; RUNNING TESTS 


BNE 


9$ 


:IN 


MOVB 


fMAlNT.NNTFLG 


: INTERNAL MAINT. MODE 


JSR 


PC.DZVLEV 


.SET UP 


TST 


af42 


;ARE UE UNDER MONITOR CONTROL? 


BNE 


7$ 


;IF YES. SKIP THIS SETUP 


BIT 


f syoi .aswR 


:IF SW01>1. GET STARTING TEST f 


BEO 


7% 


;BR IF NO TEST IS TO BE INPUTTED 


TYPE 


.SCRLF 




INSTR 




:CALL THE STRING INPUT ROUTINE 


NTSTN 




.POINTER TO MESSAGE TO BE PRINTED 


PARAM 




;CALL THE OCTAL TO ASCII CONVERT ROUTINE 


1 




;LOUEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


1000 




.HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


STSTNM 




.POINTER TO NAP LOCATION TO BE FILLED 


.BYTE 


0 


;MASK OF INVALID BITS FOR THIS PARAMETER 


.BYTE 


1 


: NUMBER OF PARAMETERS TO STORE 



6 S 



CVOZA-D MCYU 50(1046) 11-NAR-S3 



CVDZAD.P11 11-NAI(-83 10:06 


(2) 


011170 


012700 


012272 


(2) 


01117* 


022710 


000004 


(2) 


011200 


001020 




(2) 


011202 


022760 


012737 


(2) 


011210 


001014 




(2) 


011212 


023760 


001246 


(2) 


011220 


001010 




(2) 


011222 


010037 


001252 


(2) 


011226 


062737 


000002 


(2) 


011234 


1C4402 


001357 


(2) 


011240 


000412 




(2) 


011242 


005720 




(2) 


011244 


020027 


015750 


(2) 


011250 


001351 




(2) 


011252 


104402 


001356 


(2) 


011256 


000733 




(2) 


011260 


012737 


012272 


(?) 


011266 






(2) 


011266 


000177 


167760 


(2) 








(2) 








(2) 








(2) 


011272 


013700 


002040 


(2) 


011276 


062700 


000002 


(2) 


U11302 


010037 


002042 


(2) 


011306 


062700 


000002 


(2) 


011312 


010037 


002044 


(2) 


011316 


062700 


000002 


(2) 


011322 


010037 


002046 


(2) 








(2) 








(2) 








(2) 


011326 


013700 


001174 


(2) 


011332 


010037 


002010 


(2) 


011336 


005200 




(2) 


011340 


010037 


002012 


(2) 


011344 


005200 




(2) 


011346 


010037 


002014 


(2) 


011352 


010037 


002020 


(2) 


011356 


005200 




(2) 


011360 


010037 


002016 


(2) 


011364 


010037 


002022 


(2) 


011370 


005200 




(2) 


011372 


010037 


002024 


(2) 


011376 


005200 




(2) 


011400 


Skm JkA W 

010037 


002026 


(2) 


011404 


005200 




(2) 


01 1406 


OlOOSr 


002030 


(2) 


011412 


010037 


002034 


(2) 


011416 


005200 




(2) 


011420 


010037 


002032 


(2) 


011424 


010037 


002036 


(2) 


011430 


000207 





10:13 PAGE 10-41 

POUER DOUN AND UP ROUTINES 



MOV 

5S: CMP 
BNE 
CMP 
BNE 
CMP 
BNE 
MOV 
ADD 
TYPE 
BR 

6S: TST 
CMP 
BNE 
TTPE 
BR 

7$: MOV 
8S: 

RESTART :JMP 



fTSTl.RO 

f4.(R0) 

6S 

#'2737.2(R0) 
6$ 

STSTNN.4(R0) 
6S 

RO.SLPADR 
f2.SLPA0R 
«$CRLF 

as 

(R0)« 

R0,fTLAST«10 
5S 

.SQUES 
4S 

f TST1 .SLPADR 
aSLPADR 



;IS THIS THE TEST ? 

:IF NOT. DON'T PROCESS NUMBER 

;SAVE PC 

:POP OVER PREVIOUS SCOPE 



.•PREPARE TEST ADDRESS 

:60 START TESTIN6.***UARNIN6!**** 
.THIS JUMP IS USED BY POWER UP ROUTINE 



• Ml 

• • • > 



;TH!S UTILITY SETS UP CSR*S.SETS UP VECTORS. 

DZVLEV: MOV DZVRIV.RO :PLACE THE BASE VECTOR ADDRESS IN RO 

ADD «2.R0 : CALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 

MOV RO.DZVRIS .-STORE IT HERE 

ADD f2.R0 .-CALCULATE THE TRANSMITTER INTERRUPT VECTOR 

MOV RO.DZVTIV ;STORE IT HERE 

ADD #2.R0 :CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 

MOV RO.DZVTIS .'STORE IT HERE 

;THIS SEGMENT SETS UP POINTERS FOR THE GIVEN DZVll. S6ASE IS THE BASE ADDRESS 
:0F THE DEVICE 



MOV 


SBASE.RO 


;COPY 


MOV 


RO.DZVCSR 


;XXXO 


INC 


RO 




MOV 


RO.HDZVCSR 


:XXX1 


INC 


RO 




MOV 


RO.DZVRBUF 


:xxx2 


MOV 


RO.DZVLPR 


:xxx2 


INC 


RO 




MOV 


RO.HDZVRBUF 


:xxx3 


MOV 


RO.HDZVLPR 


:xxx3 


INC 


RO 




MOV 


RO.DZVTCR 


:xxx4 


INC 


RO 




MOV 


RO.HDZVTCR 


;XXX5 


INC 


RO 




MOV 


RO.DZVNSR 


:xxx6 


MOV 


RO.DZVTDR 


:XXX6 


INC 


RO 




MOV 


RO.HDZVHSR 


;XXX7 


MOV 


RO.HDZVTDR 


;XXX7 


RTS 


PC 





H S 



CVOZA-0 HACY11 30(1046) n-HAR-SS 
CV0ZAD.P11 11-fUR-83 10:06 



10:13 PAGE 10-42 

POWER DCUN AND UP ROUTINES 



SFQ S9 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2> 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
12) 
C2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
12) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



011432 000002 



; CONVERT 
.PARHD: RTI 
.REM ( 



.PARNO: 



OECIHAL ASCII STRING TO OCTAL 

: DECIMAL PARAMETERS UNUSED. 
; DELETED TO CONSERVE SPACE... 



21: 



IS: 



3S: 



4$: 



5$: 



6S: 
7$: 
8$: 
9S: 
10$: 



nov 


• • • ."W r»i 

(SP>.RS 


NOV 


(RS)«,6$ 


NOV 


(R5>*.7$ 


NOV 


(RS)«.8S 


HOVB 


(R5)*.9$ 


HOVB 


(RS)«.10t 


NOV 


RS,(SP) 


CLR 


R5 


NOV 


fINBUF«R4 


CNPB 


#15. (R4) 


BEQ 


3i 


CNPB 


(R4).f*0 


BLT 


3S 


CNPB 


(R4).f *9 


BGT 


3S 


BICB 


f '0,(R4) 


CLR 


R2 


BISB 


(R4)«,R2 


ADD 


R2.R5 


CNPB 


fo,(R4) 


BEQ 


4S 


ASL 


RS ;X2 


NOV 


R5.R2 :SAVE X2 


ASL 


RS :X4 


ASL 


RS ;X8 


ADD 


R2.RS ;TINES 10 


BR 


IS 


INSTER 




BR 


2% 



;;GPA 
;;GPA 
;;6PA 



;TEST TO SEE IF NUNBER IS WITHIN UNITS 



CNP 

BHI 

CNP 

BLO 

BITB 

BNE 



RS.7S 
3S 

RS.6S 
3S 

9S.RS 
3S 



; STORE NUNBER AT SPECIFIED ADDRESS 



NOV 

NOV 

ADD 

DECB 

BNE 

RTI 

0 

0 

0 

.BYTE 
.BYTE 



8S,R4 

RS,(R4)« 

f2.RS 

10$ 

5$ 



1 5 



CVDZA-0 HACY11 30(1046) 11-PIAR-83 
CVDZAO.Pn ll-HAR-SS 10:06 

(2) 



10:13 PACe 10-43 

POWER DOWN AND UP ROUTINES 



END OF .PARHD DELETE RANGE 



SEQ 60 



;;6PA 



J s 



CVOZA-0 HACYII 30(1046) ll-HAR-SS 



CVDZAD.P11 11-MAR-83 10:06 


(2) 








(2) 








(2) 








(2) 








(2) 


01U34 


012700 


001500 


(2) 


01U40 


013701 


001174 


(2) 


01U44 


013702 


001170 


(2) 


01U50 


042702 


177007 


(2) 








(2) 


01U54 


012704 


001204 


(2) 


01 1460 


013705 


001176 


(2) 


011464 


105037 


001414 


(2) 


011470 


005037 


001410 


(2) 


011474 


006005 




(2) 


011476 


103407 




(2) 


011500 


001422 




(2) 


011502 


005724 




(2) 


011504 


062701 


000010 


(2) 


011510 


062702 


000010 


(2) 


011514 


000767 




(2) 


011516 


006137 


001410 


(2) 


011522 


105237 


001414 


(2) 


011526 


010120 




(2) 


011530 


010220 




(2) 


011532 


013720 


001200 


(2) 


011536 


012420 




(2) 


011540 


013720 


001202 


(2) 


011544 


000757 




(2) 


011546 


012710 


177777 


(2) 


011552 


012737 


001142 


(2) 


011560 


000207 




(2) 








(2) 








(2) 








(2) 








(2) 








(2) 








(2) 








(2) 








(2) 








(2) 








(2) 


011562 






(2) 


011562 


000005 




(2) 


011564 


105337 


001422 


(2) 


011570 


012702 


001500 


(2) 


011574 


012703 


001204 


(2) 


011600 


005022 




(2) 


011602 


022702 


001740 


(2) 


011606 


001374 




(2) 


011610 


105037 


001414 


(2) 


01 1614 


012702 


001500 


(2) 


011620 


012701 


160000 


(2) 


011624 


012737 


012074 


(2) 


011632 


052711 


000040 


(2) 


011636 


052761 


000017 


(2) 


011644 


005000 





10:13 PAGE 10-44 

POWER DOWN AND UP ROUTINES 



.'•ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 

:*1F BIT7 IN THE ENVIRONMENT MODE (SENVR) BYTE IS SET. 

:*THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 



1 Mr 1 • 


NOV 


fbZu HAP RO 


POINT TO THF tifVltf MAP TABLE 




NOV 


tBASE R1 


BUILD DEVICE ADDRESSES IN Rl 




NOV 


SVECT1 R2 


BUILD DEVICE VECTORS IN 112 




BK 


f*C<770> R2 


STRIP AWAY OTHER INFORNATION 




NOV 


fSDDW0.R4 


'POINT TO THE BEGINNING OF DEVICE PARANETERS 




MOV 


SDEVH.RS 


'GET THE NAP OF ACTIVE DEVICES 

Vb ' * fan* V* ■ A V b Vb T 4 bb w 




CLR6 


DZVNUM 


: INITIALIZE NO. OF DEVICES IN SYSTEN 




CLR 


SAVACTV 


iCLEAR THE ACTIVE BIT NAP 


IS: 


ROR 


R5 


:GET A DEVICE SELECTION BIT 




BCS 


3S 


;IF IT IS SELECTED. GO SET UP A NAP 




BEQ 


5S 


;IF NO NORE ARE SELECTED. GET OUT OF SETUP 




TST 


(R4)« 


;POINT TO NEXT DEVICE DESCRIPTOR 


2$: 


ADD 


flO.RI 


;SET UP THE NEXT ADDRESS 




ADD 


#10, R2 


;SET UP THE NEXT VECTOR GROUP 




BR 


n 


;G0 SEE IF NORE DEVICES RENAIN 


3S: 


ROL 


SAVACTV 


;SET BIT IN ACTIVE DEVICE NAP 




INCB 


DZVNUM 


{INCREMENT NO. OF ACTIVE DEVICES IN SYSTEM 




NOV 


R1.(R0)« 


;LOAD DEVICE ADDRESS 




MOV 


R2.(R0)« 


;LOAD THE VECTOR ADDRESS 




MOV 


SCDU1.(R0)« 


;GET THE NUMBER OF LINES IN OPERATION 




MOV 


(R4)«,(R0)« 


;LOAD DEVICE PARAMETERS 




NOV 


SCDW2,(R0)« 


;LOAD DEFAULT TESTING MODE 




BR 


2% 


;G0 BUILD THE NEXT ADDRESS 


5S: 


MOV 


ff-l.(RO) 


;TERNINATE THE DEVICE NAP 




NOV 


fSSWREG.SUR 


;SET TO SOFTWARE APT SWITCH REGISTER 




RTS 


PC 


; RE TURN TO PRINT STATUS TABLE 



: •ROUTINE USED TO "AUTO SIZE" THE DZV11 
:*CSR AND VECTOR. 

:*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE (160000:167770) 
AND THE VECTOR NAY BE ANY WHERE IN THE 

:• FLOATING VECTOR RANGE (300:770) 



AUTO.SIZE: 





RESET 






DECB 


INIFLG 


CSRMAP: 


MOV 


fDZV.MAP.R2 
ffSDOWO.RS 




NOV 


U: 


CLR 


(R2)« 




CHP 


fOZV.END.R2 




BNE 


U 




CLRB 


DZVNUM 




NOV 


fDZV.MAP.R2 




NOV 


#1 60000. Rl 




NOV 


f6S.af4 


2t: 


BIS 


ffBlT5.(Rl) 




BIS 


f17.4(R1) 




CLR 


RO 



: INSURE A BUS INIT. 
:SHOW THAT 1 WAS HERE 
:LOAD NAP POINTER. 

iPOiNT TO ETABLE DEVICE DESCRIPTOR WORDS 
:ZERO ENTIRE NAP 
;ALL DONE? 
*BR IF NO 

•SET OCTAL NUNBER OF DZVll'S TO 0 

.SET FOR FIRST ADDRESS TO BE TESTED 
;SET FOR NON-EXISTENT DEVICE TINE OUT 
;TRV TO SET NASTER SCAN ENABLE 
:TRY TO TRANSMIT ON ANY LINE 
:USE RO AS A COUNTER 



K S 



CVD2A-0 MACm 30(1046) 11>PUR-S3 



CVDZA0.P11 11-MAR-B3 10:06 


\CI 


wl lOHO 


AAC71 1 
W3 f 1 1 




\c/ 








\CI 


01 1<><9 
Ul tOJC 










W 1 J» •» 




(9) 


vl Iw^w 






(9) 


All AMI 


0'f9761 


000017 

wwww 1 ' 


(91 


U 1 1 wvO 


0014^'^ 
VW its J 




(?1 




019711 


000040 




011674 


001 4U 






011676 


0S2711 


000090 

VWVftV 


(2) 


01 1 702 

V V 1 f Wft 


000940 






011704 


032711 

VWftf 1 1 


000040 


(2) 


011710 


001022 

W • Vftft 




(2) 


011712 

V ■ V * * ft 


005061 

WW I 


000004 

wvvv^ 


(2) 








(2) 


011716 

V • • • * W 


010122 

V 1 V • ftft 




(2) 


011720 

VII' ft V 


00S722 

VV^ I ftft 




(2) 


011722 

V I • ■ ftft 


012722 

V 1 ft 1 ftft 


000017 

WW 1 I 


(2) 


011726 

V 1 • • ftW 


012712 

V 1 ft 1 1 ft 


017470 

V I 1 ~ • V 


(2) 


011732 

V I 1 I ^ft 


012223 

V 1 ftftft^ 




(2) 


011734 


005022 

VV -'Vftft 




(2) 


011736 

V 1 1 • 


012712 

V 1 ft 1 1 ft 


177777 


(2) 


011742 

VIII ~ft 


105237 

1 V^ft 


001414 

V V • ^ 1 ^ 


(2) 


011746 

VIII ~v 


122737 

1 ft ft 1 1 


000020 

VWVftV 


(2) 


0117S4 

VIII 


001405 

V V 1 ~ w ^ 




(2) 


0117S6 

VIII ^V 


062701 

Wft 1 V 1 


000010 

WW 1 V 


(2) 


011762 

VIII Vft 


022701 

Vftft > V 1 


164000 

• V ' VW 


(2) 


011766 

VIII w 


001321 

V V f V 1 




(2) 


011770 

VI • 1 IV 






(2) 

^ ft ' 


011770 

VI II I V 


105737 

• v^ • ^ ■ 


001414 

VV 1 ^ • ^ 


(2) 

^ ft » 


011774 

VI II r ~ 


001430 

V V I ~ V 




(2) 

* ft / 


011776 

V 1 1 1 1 V 


113701 

1 1 ^1 V 1 


001414 


(2) 

^ ft ' 


012002 

V 1 ft VVft 


012737 

V • ft ■ i# 1 


000001 

WV W 1 


(2) 

» ft ' 


012010 

V 1 ft V 1 V 


005301 

W^^V 1 




(2) 

^ft ' 


012012 

V 1 ft V 1 ft 


001404 

VV 1 ^ v^ 




(2) 

1 ft ' 


012014 

V I ft V 1 ~ 


000261 

VWft V ■ 




(2) 

^ ft # 


012016 

V 1 ft V 1 V 


006137 

VW 1^1 


001410 

W 1 ^ I V 


(2) 

^ ft ' 


012022 

V 1 ft Vft ft 


000772 

VWi 1 ft 




(2) 

^ ft ' 


012024 

V I ft Vft^ 


013737 

V I ^ 1 


001500 

VV 1 w 


(2) 

\ ft ' 


012032 

V 1 ft V^ft 


013737 

V 1 ^ I ^ 1 


001510 

V V 1 ' • V 


(2) 


012040 

V 1 ft v^v 


012737 

V 1 ft 1 


000006 

vwvw 


(2) 

^ft ' 


012046 


013737 


001410 

W f ^ 1 V 


(2) 

1ft' 


012034 

V 1 ft V^^ 


000412 

WV^ 1 ft 




(2) 

* ft * 


0120S6 


104402 

■ V^ ^ Vfc 


010041 

V 1 w^ » 


(2) 


012062 

V 1 ft Wft 


005000 




(2) 

^ ft r 


012064 

V • ft V^^ 


004737 

f ^1 


006610 

WW 1 V 


(2) 

1 ft ' 


012070 

V ■ ft vr V 


000000 

www 




(2) 


012072 

V f ft V* ft 


000776 

VW* ■ V 




(2) 

1ft' 


012074 

V 1 ftV» ~ 


012716 

V 1 ft * IV 


011756 

V 1 1 * *w 


(2) 


012100 


000002 




(2) 








(2) 


012102 


012737 


000200 


(2) 


012110 


012737 


012224 


(2) 


012116 


012702 


001500 


(2) 


012122 


012700 


000300 


(2) 


012126 


012701 


000302 



0:13 PAGE 10-45 

POWER DOWN AND UP ROUTINES 



7S: 



8t: 



3$: 
100S: 

4S: 

98S: 
99$: 

5$: 
6S: 



TST 


(RD 


BNI 


8S 


DEC 


RO 


BNE 


7* 


BR 


1% 


BIT 


«17.4(R1) 


BEQ 


3S 


BIT 


#BIT5,(R1) 


BEO 


3$ 


BIS 


#20, (R1) 


NOP 




BIT 


#40. (R1) 


BNE 


3S 


CLR 


4(R1) 


POINT 


IT IS ASSUNED 1 


NOV 


R1,(R2)* 


TST 


(R2)« 


NOV 


#17, (R2)* 


NOV 


#17470.(R2) 


NOV 


(R2)«,(R3)« 


CLR 


(R2)* 


NOV 


#*1,(R2) 


INCB 


DZVNUN 


CNP6 


#20,DZVNUN 


BEQ 


100$ 


ADD 


#10, R1 


CNP 


#164000,R1 


BNE 


2$ 


TSTB 


DZVNUN 


BEQ 


5$ 


NOVB 


DZVNUN.RI 


NOV 


#1,SAVACTV 


DEC 


R1 


BEQ 


98$ 


SEC 




ROL 


SAVACTV 


BR 


4$ 


NOV 


OZCRO,$BASE 


NOV 


NANT0,$CDII2 


NOV 


#6.a#4 


NOV 


SAVACTV.$OEVN 


BR 


WECNAP 


TYPE 


«NERR2 


CLR 


RO 


JSR 


PC. ABORT 


HALT 




BR 


.-2 


NOV 


#3$,(SP) 


RTI 




NOV 


#NASK,a#22 


NOV 


#4$,a#20 


NOV 


#DZV.NAP.R2 


NOV 


#300, RO 


NOV 


#302, R1 



:HAS TRANSNITTER READY CONE UP? 
:IF SO, 60 GET A FINAL CHECK 
:REDUCE COUNT. TINE UP? 
;IF NOT. KEEP UAITING 
:ASSUNE IT'S NOT A DZV11 

;ARE ANY TCR BITS STILL SET? THEY SHOULD BE 
:IF IT'S NOT, ASSUME IT'S NOT A 0ZV11 
:IS NASTER SCAN ENABLE STILL SET? 
;IF NOT, ASSUNE IT'S NOT A DZVII 
;SET DEVICE CLEAR 

;DID SCANNER CLEAR 

;IF NOT ASSUNE IT IS NOT DZV 

:GET RID OF TCR BITS 

>T R1 HOLDS A DZV11 CSR ADDRESS. 

: STORE CSR IN CORE TABLE. 

;POP OVER VECTOR STORE AREA 

:SET THE DEFAULT LINE SELECTION PARANETER 

:SET THE DEFAULT PARANETERS 

;COPY PARANETERS INTO ETABLE DESCRIPTOR 

:SET THE DEFAULT NODE OF OPERATION 

:TERNINATE LIST 

;UPDATE DEVICE COUNTER 

;ARE NAX. NO. OF DEV FOUND? 

:YES DON'T LOOK FOR ANY NORE. 

;UPDATE CSR POINTER ADDRESS 

:BR IF NORE ADDRESS TO CHECK. 

.•WERE ANY DZVII'S FOUND AT ALL? 

: ERROR AUTO SIZER FOUND NO DZVII'S IN THIS SYS. 

:CREATE A BIT NAF* OF THE ACTIVE 
;DEVICES IN THE SYSTEN 



;POINT TO THE ADDRESS OF FIRST DEVICE 

; INDICATE TO ETABLE WHAT NODE IS BEING USED 

.•RESTORE TRAP VECTOR 

;SAVE ACTIVE REGISTER 

;60 FIND THE VECTOR NOW. 

:NOTIFY OPR THAT NO DZVII'S FOUND. 

;NAKE DATA DISPLAY ZERO 

.•ARE WE UNDER UFO ? 

;STOP TNE SHOW 

:DISABLE CONT. SW. 

.-ENTERED BY NON-EXISTENT TINE-OUT 

: RETURN TO HAINSTREAN 

;SET lOT TRAP PRIORITY 
:SET lOT TRAP VECTOR 
.-SET SOFTWARE POINTER 
:FL0ATIN6 VECTORS START HERE. 
:P€ OF lOT INSTR. 



CVOZA-0 fWCYll 


30(1046) 


11-MAR>83 10: 


13 PAGE 


10-46 


CVD2AD.P11 1 


4 MAM 

1"fUR-83 


10:06 




POVER DOWN AND 


(2) 


012132 


A4 A4 

010120 






IS: 


MV 


(2) 


012134 


012721 


000004 






HOV 


(2) 


012U0 


022021 








CMP 


(2) 


012U2 


0201 27 


001000 






CMP 


(2) 


012U6 


101771 








BIOS 


(2) 


012150 


013704 


001410 






HOV 


(2) 


0121S4 


AAA AA^ 

006004 






2S: 


ROR 


(2) 


012156 


103036 








BCC 


<2) 


012160 


A Axy ^9 

106427 


Am A AAA 

000000 






MTPS 


(2) 


012164 


01277Z 


A J A A S A 

040040 


000000 




mv 


(2) 


012172 


Ai 1 ^A4 

011201 








nov 


(2) 


012174 


llcr61 


AA AA4 9 

000017 


AAAAA> 

000004 




novB 


(2) 












(2) 


012202 


AAC OAA 








INC 


(2) 


012204 


001 3rO 








BNE 


(2) 


012206 


Olcrftc 


000300 


AAA AAA 

000002 




HOV 


(2) 


012214 


00000) 








RESET 


(2) 


012216 


00c fOc 


A AAA 4 <1 

000012 




3S: 


APD 


(2) 


012222 


OOOf 








BP 


(2) 


012224 


OlIOOc 


AAAAA1 

000002 




4$: 


HOV 


(2) 


012230 


1il07A.9 


AAAA4 A 

000010 


AAAAA^ 

000002 




SUB 


(2) 


012236 


n/.o7iio 
0*»cf02 


AAAAA7 

000007 


AAAAA^ 

000002 




BIC 


(2) 


012244 










P0P2SP 


(2) 


012246 


m 971 A 


012216 






HOV 


(2) 


012252 


OOOOOc 








RTI 


(2) 


012254 


vl Jf J» 


001502 


001170 


5S: 


HOV 


(2) 


012262 


012737 


004462 


000020 




HOV 


(2) 


012270 


000207 








RTS 


(2) 















L S 



R1,(R0)« :START FILLING VECTOR AREA 

#4,(R1)» .-WITH .♦2; lOT 

(R0)».(R1)* :ADD 2 TO RO ♦Rl 

R^ .#1000 ;HAS THE VECTOR AREA BEEN EXCEEDED? 

IS :BR IF HORE TO FILL 

SAVACTV.R4 ; STORE TEHPORARILV 

R4 .'BRING OUT A BIT 

5S :BR IF ALL DONE 

#0 .ZERO CPU PR 10 

«BIT14^BIT5.a(R2) ;SET TIE AND HAS SCAN 

(R2).R1 ;6ET CSR 

fl7.4(R1) :SET THE TCR BITS FOR ALL LINES 

;ATTEHPT TO FORCE AN INTERRUPT 
RO ; STALL 

.-2 ; FOR TIHE TO INTERRUPT 

«300.2(R2) :N0 INTERRUPT ASSUME 300 AND FIX DZVll LATER 

;INIT 

f12.R2 .-POP SOFTWARE POINTER 

2S .-KEEP GOING 

(SP),2(R2) ;6ET VECTOR ADDRESS 

f10.2(R2) .-POINT BACK TO THE CORRECT VECTOR 

f7.2(R2) .'CLEAR JUNK 

.-POP lOT JUNK OFF STACK 
f3S.(SP) ;SET FOR RETURN 



SEQ 63 



DZVC0.SVECT1 

f.SCOPE.IOTVEC 

PC 



.COPY VECTOR OF FIRST DEVICE INTO ETABLE 
: RESTORE THE SCOPE TRAP 
:ALL DONE UITH "AUTO SIZING" 



n s 



CVDZA-O HACYll 30(1 0A6) 11-IIAR-83 



CVDZA0.P11 


n-fUR-83 10:06 




8735 










8736 










(1) 










(1) 










(1) 










(3) 










(6) 










(5) 


012272 


000004 






(3) 


012274 


012737 


000001 


001246 


(3) 


012302 


012737 


012462 


001362 


(1) 


012310 


012737 


012450 


000004 


(1) 


012316 


012737 


000200 


000006 


(1) 


012324 


012737 


012332 


001364 


(1) 


012332 


013700 


002010 




(1) 


012336 


011001 






(1) 


012340 


000240 






(1) 


012342 


005010 






(1) 


012344 


000240 






(1) 


012346 


012737 


012354 


001364 


(1) 


012354 


013700 


002014 




(1) 


012360 


011001 






(1) 


012362 


AAA A S A 

000240 






(1) 


012364 


005010 






(1) 


012366 


000240 






<1) 


012370 


012737 


012376 


001364 


(1) 


012376 


013700 


002024 




(1) 


012402 


011001 






(1) 


012404 


000240 






(1) 


JhA SkM 

012406 


AAiPAA A 

005010 






(1) 


012410 


000240 






(1 ) 


012412 


A« A 

012737 


A« 1 4 1A 

012420 


001364 


<1) 


0124?0 


AA WAA 

013700 


AAA A V A 

002030 




(1) 


012424 


011001 






(1) 


012426 


AAA A S A 

000240 






(1) 


012430 


AA^Aa A 

005010 






(1) 


A« 4J V« 

012432 


AAA A M A 

000240 






(1) 


012434 


A« A 

012737 


AAA AA^ 

000006 


000004 


(1) 


012442 


AAV AW 

005037 


AAAAA^ 

000006 




<1) 


012446 


1(M400 






(1) 


0124S0 


011601 






(1) 


012452 


022626 






(1) 


012454 


104001 






(1) 


012456 


104401 






(1) 


Afl A 4 ^ A 

012460 


AAAtf « A 

000111 






8737 










8738 










8739 










8740 










8742 










(5) 












Qic4oc 


AAAAAX 
0U0QQ4 






(?) 


012464 


012737 


000002 


001246 


(2) 


012472 


012737 


012526 


001362 


8743 


012500 


013700 


002010 




8744 


012504 


012710 


000020 




8745 


012510 


005005 
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0ZV11 DEVICE DIAGNOSTICS. 
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• • • 



;ttttttt«tttt*t**ttttt«** TEST 1 
.-•THIS TEST PROVES THE BUS REPLY RESPONSE 
; •DURING .« READ OR WRITE TO THE FOLLOWING ADDRESS: 
DZVCSR. DZVRBUF. DZVTCR. DZVNSR 

TEST 1 



TSTIi 



It: 



2S: 



31: 



4$: 



5t: 



SCOPE 






NOV 


f1,$TSTNN 


LOAD THE NUNBER OF THIS TEST 


NOV 


«TST2,NEXT 


POINT TO THE START OF THE NEXT TEST 


NOV 


«5S,4 


SET TRAP VECTOR 


NOV 


fNASK,6 


SET PRIORITY TO HI6H(NASK INTERRUPTS) 


NOV 


f1$»L0CK 


;SET RETURN IF SW09s11 


NOV 


DZVCSR.RO 


SET ADDRESS TO TEST 


NOV 


(RO) .R1 


;READ THE ADDRESS 


NOP 




; WASTE TINE 


CLR 


(RO) 


;WRITE THE ADDRESS 


NOP 




; WASTE TINE 


NOV 


«2S,L0CK 


;SET RETURN ADDRESS FOR SW09 


NOV 


DZVRBUF ,R0 


;SET ADDRESS TO TEST 


NOV 


(R0)«R1 


;READ THE ADDRESS 


NOP 






CLR 


(RO) 


; WRITE THE ADDRESS 


NOP 




;WASTE TINE 


NOV 


«3S,L0CX 


;SET RETURN ADDRESS FOR SW09 


NOV 


DZVTCR.RO 


;SET ADDRESS TO TEST 


NOV 


(RO).RI 


;READ THE ADDRESS 


NOP 






CLR 


CRO) 


; WRITE THE ADDRESS 


NOP 






NOV 


«4S.L0CK 


;SET RETURN ADDRESS 


NOV 


DZVNSR, RO 


;SET ADDRESS TO TEST 


NOV 


(RO).RI 


;READ FRON ADDRESS 


NOP 






CLR 


(RO) 


;WRITE THE ADDRESS 


NOP 






NOV 


«6.4 


;SET TRAP CATCHER BACK TO NORNAL 


CLR 


6 




ADVANCE 




; SCOPE THIS TEST 


NOV 


(SP),R1 


;SAVE PC OF TRAP 


P0P2SP 


;POP TRAP OFF STACK 


ERRORS 


1 


;*N0 BUS REPLY RESPONSE. 


SC0P1 




;SW09s1? 


JNP 


(R1) 


;RTI 


« 







;*THIS TEST PROVES THAT 
;*CAN BE SET AND THAT IT 
:*BY ITSELF 
TEST 2 



BIT "DCLR" 
WILL CLEAR 



TST2: 



SCOPE 

NOV 

NOV 

NOV 

NOV 

CLR 



«2,STSTNN ;LOAD THE NUNBER OF THIS TEST 

fTST3,NEXT .-POINT TO THE START OF THE NEXT TEST 

DZVCSR,RO :SET POINTER 

ffOCLR.(RO) ;SET DCLR 

R5 ;SET EXPECTED TO 0 



N S 
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SEa 6S 



8746 
8747 
8748 
8749 
87S0 
8751 
8752 
8753 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(5) 
(6) 
(5) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1> 
(1) 
(1) 
(1) 
(1) 



012512 
012514 
012516 
012520 
012522 
012524 
012526 



005003 
011004 
001403 
105203 
001374 
104002 



2S: 



3S: 



CLR 

HOV 

BEQ 

INCB 

BNE 

ERROR* 



R3 

(P0),R4 
3S 
R? 
2% 



COPYRIGHT 1977.1981 DIGITAL EQUIP. CORP. 



DUAL LOOP COUNTER 
IS DCLR CLEAR? 

IF YES . 60 TO THE NEXT TEST 
IF NO. COUNT 1 OF 256 TICKS 

HAS THE TIME EXPIRED? IF NO, 60 TEST BIT AGAIN 
•DCLR FAILED TO CLEAR 



TEST 3 

;*TEST TO VERIFY THAT THE R/U BITS OF THE 
.-•DZVCSR REGISTER CAN BE SET. THEN VERIFY THAT 
.••THESE BITS CAN BE CLEARED. AND FINALLY. VERIFY 
:^THAT AFTER BEING SET AGAIN THEY CAN BE 
.••CLEARED BY A 'DEVICE CLEAR". 
;^THE BITS TESTED ARE: NAINT. HSEN 3. SILOEN. 
.••RIE. AND TIE. 
;:• TEST 3 



012526 


000004 






TST3: 


SCOPE 






012530 


012737 


000003 


001246 




NOV 


«3.STSTNN 


;LOAD THE NUNBER OF THIS TEST 


012536 


012737 


012704 


001362 




NOV 


«TST4.NEXT 


;POINT TO THE START OF THE NEXT TEST 


012544 


013700 


002010 






NOV 


DZVCSR.RO 


;GET BASE ADDRESS 


012550 


012703 


012664 






NOV 


f5$.R3 


;SET R3 TO TOP OF TABLE 


012554 


011305 






1$: 


NOV 


(R3).R5 


;SET BIT 


012556 


012737 


012564 


001364 




NOV 


flU.LOCK 


;SETUP FOR TIGHT SCOPE LOOP 


012564 


010510 






1U: 


NOV 


R5.(R0) 


;SET BIT IN DEVICE 


012566 


011004 








NOV 


(R0).R4 


;READ THE BIT FRON DEVICE 


012570 


020504 








CNP 


R5.R4 


;UAS BIT SET? 


012572 


001401 








BEQ 


2% 


;BR IF YES 


012574 


104002 








ERROR* 


2 


;^BIT R/U FAILURE 


012576 


104401 






2$: 


SC0P1 




■IS SWITCH 9 SET? 


012600 


012737 


012606 


001364 




NOV 


«12S.L0CK 


;SET FOR NEXT TIGHT SCOPE LOOP 


012606 


040510 






12S: 


BIC 


R5.(R0) 


; CLEAR THE BIT. 


012610 


011004 








NOV 


(R0).R4 


;READ DEVICE 


012612 


001403 








BEQ 


3i 


;BR IF BITS WERE CLEARED. 


012614 


005005 








CLR 


RS 


; CLEAR FOR ERROR PRINTOUT 


012616 


104002 








ERROR* 


2 


(•BIT FAILED TO CLEAR 


012620 


011305 








NOV 


(R3).R5 


(RESTORE THE BIT. 


012622 


104401 






31: 


SC0P1 




;SU09 SET? 


012624 


012737 


012632 


001364 




NOV 


»13$.L0CK 


;SET UP FOR NEXT TIGHT SCOPE 


012632 


010510 






13$: 


NOV 


R5.(R0) 


(SET THE BIT AGAIN 


012634 


104413 








DEVICE. CLR 


(ISSUE DEVICE CLEAR 


012636 


011004 








NOV 


(RO) .R4 


(READ THE BIT. 


012640 


001403 








BEQ 


4S 


(BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 


012642 


005005 








CLR 


R5 


(SET EXPECTED TO ZERO 


012644 


104002 








ERROR* 


2 


(•BIT NOT CLEARED BY DEVICE CLEAR 


012646 


011305 








NOV 


(R3).RS 


(RESTORE BIT AGAIN 


012650 


104401 






4S: 


SC0P1 




;SU09 SET? 


012652 


062703 


000002 






ADD 


»2.R3 


(POP R3 


012656 


005713 








TST 


(R3) 


(IS THIS THE END OF TABLE? 


012660 


001407 








BEQ 


6$ 


(IF YES GET OUT 


012662 


000734 








BR 


U 


(OTHERWISE TEST NEXT BIT 


012664 


000010 






5$: 


«NAINT 




(CSR BIT: INTERNAL NAINTENANCE 


012666 


000040 








fNSENAB 




(CSR BIT: NASTER SCAN ENABLE 


012670 


010000 








fSILOEN 




(CSR BIT: SILO ENABLE 


012672 


000100 








fRIE 




(CSR BIT: RECEIVER INTER. ENABLE 


012674 


040000 








»TIE 




(CSR BIT: TRANS. INTER. ENABLE 



B 6 
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SEO 66 



COPYRIGHT 1977.1981 DIGITAL EQUIP. COKP. 



(1) 
(1) 
87S4 
(1) 
(1) 
(1) 
(1) 
(3) 
(6) 
(5) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 



013676 
012700 



000000 
005037 



001364 



6t: 



#0 :END OF TABLE 

CLR LOCK .ZERO LOCK INDICATOR 

TEST 4 ••**«t«**«*t**t***tt«. 

:*THIS TE<TS THAT ALL OF THE TCR BITS 
;*CAN BE: StT. CLEARED. AND CLEARED BY A DEVICE CLEAR. 
.'•THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 
.••BE SET. CLEARED. AND CLEARED BY A RESET. 
TEST 4 



012704 


000004 






T$T4: 


SCOPE 






012706 


012737 


000004 


001246 




mv 


f4.$TSTNN 


;LOAD THE NUNBER OF THIS TEST 


012714 


012737 


013110 


001362 




mv 


fTST5.NEXT 


[POINT TO THE START OF THE NEXT TEST 


012722 


013700 


002024 






MOV 


DZVTCR.RO 


;SET DEVICE ADDRESS 


012726 


012703 


013014 






nov 


#5S.R3 


;SET R3 POINTER TO TOP OF TABLE 


012732 


012737 


012742 


001364 


U: 


NOV 


flU.LOCK 


;SET LOCK FOR SU09 SCOPE LOOP 


01?740 


011305 








NOV 


(R3).R5 


;SET EXPECTED RESULTS 


012742 


010510 






IIS: 


NOV 


R5.(R0) 


;SET THE BIT 


012744 


011004 








NOV 


(R0).R4 


iREAD THE BIT FRON THE DEVICE 


01 2746 


020504 








CNP 


R5.R4 


;DID THE BIT SET? 


0127S0 


001401 








BEQ 


2S 


;BR IF YES 


012752 


A A J A A <4 

104002 








ERROR* 


2 


;*BIT FAILED fO SET. 


012754 


104401 






2S: 


SC0P1 




;SU09 SET? 


0127*6 


A< A9 W 

012737 


AA t 

012764 


AAA V ^ ^ 

001 364 




NOV 


«3$.L0CK 


;SET UP FOR NEXT TIGHT SCOPE LOOP 


012764 


A J Af • A 

040510 






Va 

3S: 


BIC 


R5.(R0) 


; CLEAR THE BIT 


012766 


A« • A A # 

011004 








NOV 


(R0).R4 


;READ THE REC^ISTER 


012770 


AAA J AV 

001403 








BEQ 


4t 


;BR IF YES 


012772 


A A^ AAV 

005005 








CLR 


R5 


iSET EXPECiED TO 0 


012774 


AAA AAA 

104002 








ERROR* 


2 


•REPORT BIT NOT CLEAR 


012776 


AA « «AV 

011305 








NOV 


(R3).R5 


[RESTORE R5 


013000 


104401 






4$: 


SC0P1 




•SW09 SET? 


A* VAAA 

013002 


A^ AVAV 

062703 


AAA AAA 

000002 






ADD 


«2.R3 


;POP POINTER TO NEXT TABLE ENTRY 


AA VAA^ 

013006 


AA W« V 

005713 








TST 


(R3) 


;END OF TABLE? 


A* 9AA A 

013010 


AAA J A 

001412 








BEQ 


6S 


IF YES JUNP OVER TABLE 


AA 9AA t 

013012 


AAAVJ 4 

000747 








BR 


1$ 


; START TESTING NEXT BIT 


AA VAA J 

013014 


AAA AAA 

000001 






5$: 


ITCRO 




TCR BIT FOR LINE 0 


AA 9AA A 

013016 


000002 








fTCRI 




TCR BIT FOR LINE 1 


013020 


000004 








«TCR2 




;TCR BIT FOR LINE 2 


aa va a a 

013022 


000010 








fTCR3 




■TCR BIT FOR LINE 3 


013024 


000400 








IDTRO 




,DTR BIT FOR LINE 0 


013026 


001000 








fDTRI 




■DTR BIT FOR LINE 1 


01 30S0 


AAAAAA 

002000 








«DTR2 




■DTR BIT FOR LINE 2 


013032 


004000 








«DTR3 




•DTR BIT FOR LINE 3 


013034 


000000 








#0 




END OF TABLE 


013036 


005037 


001364 




6S: 


CLR 


LOCK ! 


-CLEAR TIGHT SCOPE LOOP INDIC. 


013042 


012710 


177777 






NOV 


#-1 . (RO) 


;SET ALL BITS IN TCR REGISTER 


013046 


012705 


007400 






NOV 


#007400 .R5 


■SET EXPECTED 


013052 


104413 








DEVICE. CLR 


;$ET DCLR BIT IN CSR 


013054 


011004 








NOV 


(R0>,R4 


■READ REGISTER 


015056 


020504 








CNP 


R5.R4 


;TCR BITS CLEARED? 


013060 


001401 








BEQ 


7$ 


;IF YES BRANCH 


013062 


104002 








ERROR* 


2 


TCR BITS NOT CLEARED! 


013064 


005005 






7$: 


CLR 


R5 


■SET EXPECTED TO ZERO 


013066 


005227 


000000 




8$: 


INC 


#0 


■DELAY FOR ACT 


013072 


001375 








BNE 


8S 




013074 


012710 


177777 






NOV 


#-1.(R0) 


■SET ALL POSSIBLE BITS 


013100 


000005 








RESET 


DO BUS INIT 



C 6 
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SEO 67 



(1) 
(1) 
(1) 
(*!) 
8755 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(6) 
(5) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
8756 
8757 
8758 
8759 
8760 
8762 
(5) 
(4) 
(2) 
(2) 
8763 
8764 
8765 
8766 
8767 
8768 
8769 
8770 
8771 
8772 



013102 011004 

013104 001401 

013106 104002 
013110 



013110 
013112 
013120 
013126 
013132 
013134 
013136 

013142 
013144 
013146 
013150 
013154 
013162 
013166 
013170 
013172 
013176 
013200 
013202 
013204 
013206 
013210 
013212 



000004 
012737 
012737 
013700 
104413 
005005 
012710 

011004 
001401 
104002 
012705 
052777 
052710 
005002 
011004 
042704 
020504 
001404 
104414 
005202 
001370 
104002 



9S: 



NOV 
BEQ 
EfMOR* 



(R0).R4 

9$ 

2 



COPYRIGHT 1977J981 DIGITAL EQUIP. CORP. 

;DID REGISTER CLEAR? 
;IF YES GET OUT 
:REGISTER DID NOT CLEAR! 



: :• 



TEST 5 

.••THIS TEST VERIFIES THAT 

:*BITS "RDONE.TRDY. BIT9. BITS. 

;*ANO SILOAL" ARE READ ONLY AND THAT TRDY IS 

.'•ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 

TEST 5 



000005 
013212 
002010 



121600 



100040 
000017 
000040 



001400 



001246 
001362 



TST5: 



166642 



2S: 
3S: 



4S: 



SCOPE 






NOV 


#5.$TSTNN 


:L0AD THE NUNBER OF THIS TEST 


NOV 


ffTST6.NEXT 


:P0INT TO THE START OF THE NEXT TEST 


MOV 


DZVCSR.RO 


:SET ADDRESS TO RO 


DEVICE. CLR 


;D0 A DEVICE CLEAR 


CLR 


R5 


:SET EXPECTED TO 0 


MOV 


fRDONEMRDY«BlT9*BIT8*SlLOAL.(R0} 






;yRITE THE BITS 


MOV 


(R0).R4 


;READ BACK THE BITS 


BEQ 


2$ 


:BR IF NONE ARE SET. 


ERROR* 


2 


.'•BITS WERE SET. 


NOV 


#TRDY*NSENAB.RS 


.SET EXPECTED BIT 


BIS 


f17.a0ZVTCR 


;SET TCR BITS FOR ALL LINES 


BIS 


ffHSENAB,(RO) 


:SET SCAN ENABLE 


CLR 


R2 


;SET COUNTkR TO ZERO 


NOV 


(R0).R4 


:READ THE REGISTER 


BIC 


#BIT9!BIT8.R4 


;NASX OUT LINE NO. 


CNP 


R5.R4 


;BIT SET? 


BEO 


4S 


;BR IF YES 


DELAY 




.•STALL TINE 


INC 


R2 


: UPDATE COUNTER 


BNE 


3S 


:BR IF COUNTER NOT DONE. 


ERROR* 


2 


;*TROY NOT SET! 



: :• 



TEST 6 •t..ttt.tttt.tt.*t 

;*THIS TEST VERIFIES THAT: 
:*TIE.SILOEN.RIE.HSENAB,AND NAINT ARE THE 
.-•ONLY R/U BITS IN THE DZVCSR AND THAT 
.-•SETTING "DCLR" IN THE CSR WILL CLEAR THESE BITS. 
TEST 6 



013212 


000004 






013214 


012737 


000006 


001246 


013222 


012737 


013342 


001362 


013230 


104413 






013232 


013700 


002010 




013236 


012710 


177757 




013242 


012705 


050150 




013246 


011004 






013250 


020405 






013252 


001401 






013254 


104002 






015256 


105010 






013260 


105005 







TST6: 



IS: 



SCOPE 

NOV 

NOV 

DEVICE. 

MOV 

MOV 

MOV 

MOV 

CMP 

BEO 

ERROR* 

CLR6 

CLRB 



ff6.STSTNN 
ffTST7.NEXT 

CLR 

OZVCSR.RO 
f*C<DCLR>.(RO) 



.•LOAD THE NUNBER OF THIS TEST 
.•POINT TO THE START OF THE NEXT TEST 
;SET DCLR IN CSR 
;SET UP FOR ERROR NESSAGE 
;TRY TO SET ALL BITS EXCEPT DCLR 
ffTIE!SIL0EN!RlE'HSENAB!NAINT.R5 :NAKE EXPECTED 
(R0).R4 : ACTUAL 

R4.R5 ;CNP EXPECTED VS ACTUAL 

IS :YES 
2 ;^N0 
(RO) ; CLEAR LOU BYTE OF CSR 

R5 : CLEAR LOU BYTE OF EXPECTED DATA 



D 6 
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SEQ 68 



COPYRIGHT 1977.1981 DIGITAL EOUIP. CORP. 



8771 


013262 


011004 






8774 


013264 


020405 






8775 


013266 


001401 






8776 


013270 


104002 






8777 


013272 


012710 


177757 




8778 


013276 


105077 


166510 




8779 


013302 


01 2705 


0001 50 

WWW * ^W 




8780 


013306 


011004 






8781 


013310 


020405 
001401 






8782 


015312 






8783 


013314 


104002 






8784 


013316 


012710 


177757 




8785 


013322 


005005 






8786 


013324 


052710 


000020 




8787 


013330 


000240 






8788 


013332 


011004 






8789 


013334 


020405 






8790 


013336 


001401 






8791 


013340 


104002 






8792 


013342 








8793 










(1) 










(1) 










(1) 










(3) 










(6) 










(5) 


013342 


000004 






(3) 


013344 


012737 


000007 


001246 


(3) 


013352 


012737 


013426 


001362 


(1) 


013360 


104413 






(1) 


013362 


013700 


002014 




(1) 


013366 


011005 






(1) 


013370 


042705 


106000 




(1) 


013374 


012777 


177777 


166416 


(1) 


013402 


011004 






(1) 


013404 


020405 






(1) 


013406 


001401 






(1) 


013410 


104002 






(1) 


013412 


005077 


166402 




(1) 


013416 


011004 






(1) 


013420 


020405 






(1) 


013422 


001401 






(1) 


013424 


104002 






(1) 


013426 








8794 










«<1) 










(1) 










(1) 










(3) 










(6) 










(5) 


013426 


000004 






(3) 


013430 


012737 


000010 


001246 


(3) 


013436 


012737 


013512 


001362 


(1) 


013444 


104413 






(1) 


013446 


013700 


002030 




(1) 


013452 


011005 







3$: 



4S: 



21: 





(R0).R4 
R4.R5 


:READ CSR 


CMP 


.-DOES CSR COMPARE WITH EXPECTED? 




3S 


: BRANCH IF YES 


ERRORS 


2 

f*C<i)CLR>,(RO} 


:IF NOT PRINT ERROR 


MOV 

nw¥ 


;SET ALL CSR BITS POSSIBLE 




BHDZVCSR 


: CLEAR HIGH BYTE OF CSR 


MOV 


fRIE!NSENAB!MAINT.R5 :SET EXPECTED IN RS 


MOV 


(R0).R4 


;READ CSR REGISTER 


CRP 


R4.R5 


:DOES ACTUAL^EXPECTED 


WK V 


4$ 


;IF YES CONTINUE 


ERRORS 


2 


;IF NO PRINT ERROR 


NOV 

nw» 


f*C<DCLR>.(RO> 


;SET ALL POSSIBLE CSR BITS 


CLR 


R5 


;SET R5 TO EXPECTED RESULTS 


BIS 


fOCLR.(RO> 


:DEVICE MASTER RESET 


NOP 






MOV 


(R0),R4 


.•ACTUAL 


CW» 


R4.R5 


;CMP ACTUAL VS EXPECTED 


BEQ 


2S 


;YES 


ERROR* 


2 


;*N0 



:t***tttt*tttt***ttt*t**t TEST 7 #».••••...« 

:*THIS TEST PERFORMS RESET TESTING AND 
:*TESTING OF READ ONLY REGISTER DZVRBUF 
;*AND TESTING OF WRITE ONLY REGISTER DZVLPR 
TEST 7 



T$T7! 



IS: 



2%: 



SCOPE 

MOV 

MOV 

DEVICE. 

MOV 

MOV 

BIC 

NOV 

NOV 

CMP 

BEO 

ERROR* 

CLR 

NOV 

CNP 

BEQ 

ERROR* 



«7.$TSTNN 
fTSTIO.NEXT 
CLR 

DZVRBUF .RO 

(R0).R5 

fDVALIO'.BITII 

f-I.BDZVLPR 

(R0).R4 

R4.R5 

IS 

2 

BDZVLPR :TRY 

(R0),R4 

R4.R5 

2S 

2 



;LOAD THE NUMBER OF THIS TEST 
.•POINT TO THE START OF THE NEXT TEST 
:CLEAR DZVll 

;SET UP FOR ERROR NESSAGE 
;COPV PRESENT CONTENTS 
•BITIO.RS ;CLEAR ILLEGAL BITS 
:TRV TO WRITE ALL 1*S 
; ACTUAL 

:CNP ACTUAL VS EXPECTED 
:IF YES, GO CONTINUE PROCESSING 
: TERROR- BIT PATTERN NOT CORRECT 
TO WRITE ALL ZEROES 
;READ REGISTER 
:CNP ACTUAL VS. EXPECTED 
;BRANCH IF EQUAL 
: VALUES DID NOT COMPARE 



;**t*****ft***t*«t**t***ft* TEST 10 
;*THIS TEST PERFORMS RESET TESTING AND 
;*TESTIN6 OF READ ONLY REGISTER DZVNSR 
:*AND TESTING OF WRITE ONLY REGISTER DZVTDR 
TEST 10 



TST10: SCOPE 

NOV flO.STSTNN 
MOV «TST11,NEXT 
DEVICE. CLR 
NOV DZVNSR.RO 
NOV (R0}.R5 



LOAD THE NUHBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

CLEAR DZVll 

SET UP FOR ERROR NESSAGE 
COPY PRESENT CONTENTS 



E 6 
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SEQ 69 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
<1) 
(1) 
8795 
8796 
8797 
8798 
8799 
8800 
8801 
8802 
8803 
8804 
8806 
8807 
(5) 
(4) 
(2) 
(2) 
8808 
8809 
8810 
8811 
8812 
8813 
8814 
881 S 
8816 
8817 
8818 
8819 
8820 
8821 
8822 
8823 
8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 
8832 
8833 
8834 
8855 



013454 042705 170360 

013460 112777 177777 166346 

013466 011004 

013470 020405 

015472 001401 

013474 104002 

015476 005077 166332 

013502 011004 

013504 020405 

013506 001401 

013510 104002 

013512 



1$: 



2%: 



BIC 

NOVB 

HOV 

CUP 

BEO 

ERROR* 

CLR 

nov 

C.V 
BEQ 
ERROR* 



f1 70360. R5 

«-1 .aOZVTDR 

(R0),R4 

R'-.R5 

II 

2 

iDZVTDR .TRY 

(R0).R4 

R4.R5 

2S 

2 



COPYRIGHT 1977.1981 DIGITAL EQUIP. CORP. 



CLEAR ILLEGAL BITS 
TRY TO WRITE ALL 1'S 
ACTUAL 

CNP ACTUAL VS EXPECTED 
IF YES. GO CONTINUE PROCESSING 
*ERROR- BIT PATTERN NOT CORRECT 
WRITE ALL ZEROES 
READ REGISTER 
CNP ACTUAL VS. EXPECTED 
BRANCH IF EQUAL 
VALUES DID NOT COMPARE 



TO 



013512 
013514 
013522 
013530 
013534 
013536 
015540 
013546 
013550 
013554 
013556 
015562 
015566 
015570 
013572 
013574 
013576 
013600 
015604 
015606 
015612 
013614 
013616 
015620 
015622 
015624 
013626 
015650 
015654 
015656 
015640 



000004 
012757 
012757 
005757 
001001 
104400 
012757 
104415 
015700 
005005 
012702 
150257 
001005 
005205 
104420 
000772 
010204 
105757 
100406 
052705 
001402 
006204 
000401 
006504 
010405 
000505 
150405 
150277 
104414 
011004 
020504 



**t****tt**«t***#*tt**«t TEST 11 

•VERIFY THAT SETTING "DTR" FOR A LINE UILL 

•BRING UP "CO" AND "RING" FOR: 

•THE SAME LINE IF IN EXTERNAL NODE 

•THE STAGGERED LINE IF IN STAGGERED NODE. 

•LINES ARE STAGGERED AS FOLLOWS: 

•LINEO WITH LINE1; LINE2 WITH LINE3. 

•THIS TEST IS ONLY RUN IF AN H325.0R H329 

•IS CONNECTED ON THE D2V UNDER TEST. 



;:• TEST 11 



000011 001246 
015706 001562 
001572 



015650 001564 
002050 



TST11 



000001 
001566 



001572 
000001 



8S: 

IS: 
2S: 

5S: 



166172 



4$: 
5$: 



10$: 



SCOPE 






NOV 


fll.STSTNN 


;LOAD THE NUNBER OF THIS TEST 


NOV 


fTST12.NEXT 


iPOINT TO THE START qF THE NEXT TEST 


TST 


NODE 


;TEST TO SEE IF TESTING WITH 


BNE 


88 


; CONNECTOR 


ADVANCE 




;IF NO, 60 TO NEXT TEST 
;SET FOR TIGHT SCOPE LOOP 


NOV 


flOS.LOCK 


DEVICE. CLR 


;SET DCLR IN CSR TO ZERO DEVICE 


NOV 


DZVNSR.RO 


;SET REGISTER 


CLR 


R5 


;ZERO LINE NUNBER 


NOV 


i1.R2 


;SET POINTER 


BITB 


R2.LINE 


;TEST THIS LINE? 


BNE 


5$ 


;VES 


INC 


R5 


;LINE # 


SHIFT 




;GET NEXT LINE 


BR 


IS 


;TEST NEXT LINE 


NOV 


R2.R4 


;SAVE BINARY BIT FOR LINE » 


TSTB 


NODE 


; RUNNING IN EXTERNAL NODE? 


BNI 


5S 


•IF YES SKIP STAGGERED SETUP 


BIT 


«BIT0.R5 


;IF EVEN LINE 


BEQ 


4S 


; GO GET ODD PARTNER 


ASR 


R4 


;0THERW1SE GET EVEN CONPANION 


BR 


SS 


;G0 SETUP EXPECTED RESULTS 


ASL 


R4 


■FIND ODD PARTNER 


NOV 


R4.R5 


;LOAD R5 FOR EXPECTED 


SWAB 


R5 


■PLACE IN UPPER BYTE 


BISB 


R4.R5 


;SET FOR RING BITS 


BISB 


R2.aHDZVTCR 


;SET DTR BIT 


DELAY 




-DELAY FOR CABLE LAG 


NOV 


(R0).R4 


;NOVE RESULTS OF NSR REGISTER TO R4 


CNP 


R5,R4 


;RESULTS«EXPECTED? 



F 6 
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SEO 70 



8S36 
S837 
M38 
6839 
8840 
8841 
8842 
8843 
8844 
884S 
8846 
8847 
8848 
8849 
8850 
(1) 
(1) 
(1) 
(1) 
(3) 
(6) 
(5) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
88S1 
8852 
8853 
8854 
8855 



013642 
013644 
013646 
013650 
013656 
013662 
013664 
013666 
013670 
013672 
013674 
013676 
013704 



013706 
013710 
013716 
013724 
013726 
013734 
013740 
013744 
013750 
013754 
013760 
013762 
013766 
013772 
013774 
013776 
014000 
014002 
014004 
014006 
014010 
014012 
014014 
014016 
014020 
014022 
014024 
OUOSO 
014032 
014036 



0OUO1 
104002 
104401 
012737 
140277 
104414 
011004 
001402 
005005 
104002 
104401 
012737 
000731 



000004 
012737 
012737 
104413 
012737 
005037 
013700 
012705 
012702 
130237 
001421 
050277 
052710 
005004 
005710 
100404 
104414 
005204 
001373 
104003 
011004 
020405 
001401 
104002 
104401 
104413 
062705 
104420 
005237 
000746 



013656 001364 
166144 



6S: 
11$: 



013630 001364 



7t: 



BEQ 

ERROR* 

SC0P1 

MOV 

81 CB 

DELAY 

nov 

BEQ 
CLR 

ERROR* 
SC0P1 

nov 

BR 



6t 

2 

tn$,L0CK 
R2,#riDZVTCR 

(R0).R4 

71 

RS 

2 

flOi.LOCK 
2S 
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IF YES CONTINUE 

IF NOT PRINT ERROR RESULTS 

IS SW09 SET? 

SET UP FOR NEXT TIGHT SCOPE 

CLEAR DTR BIT FOR LINE UNDER TEST 

DELAY FOR CABLE LAG 

LOAD HSR REGISTER INTO R4 

IF CO AND RING CLEARED CONTINUE 

OTHERWISE SET EXPECTED FOR ERROR 

PRINTOUT 

IS SU09 SET? 

RESET TIGHT SCOPE LOOP 

GET NEXT LINE 



..••••••••••••••t******««t TEST 12 •••••••••••••#••« 

THIS TEST VERIFIES THAT TRDY IS SET UNEN A LINE 
10 READY TO BE LOADED, AND THAT THE LINE SPECI- 
FIED IN BITS 8-9 OF DZVCSR CORRESPOND 
;* TO THE LINE SELECTED IN D2VTCR 
TEST 12 



000012 001246 
014040 001362 

013762 001364 

001374 

002010 

100040 

000001 

001366 

166036 
000040 



TST12: SCOPE 



IS: 
2S: 



3S: 



000400 
001374 



4$: 



SS: 
6S: 



NOV 


f12,STSTNN 


;LOAD THE NUMBER OF THIS TEST 


NOV 


fTST13.NEXT 


;POINT TO THE START OF THE NEXT TEST 
; ISSUE A "DEVICE CLEAR" (RESET) 


DEVICE. CLR 


NOV 


f2S.L0CK 


;SET UP FOR TIGHT SCOPE LOOP 


CLR 


SAVLIN 


;lNlTIALlZfc FOR ERROR PRINTOUT 


NOV 


DZVCSR, RO 


;SET POINTER 


NOV 


«nSENAB!TRDY.R5 


;START THE EXPECTED LINE NUMBER AT 0 


NOV 


f1.R2 


lUSING R2 AS A BIT POINTER, POINT TO LINE 0 


BITB 


R2,LINE 


;IS THIS LINE SELECTED? 


BEQ 


6$ 


;IF NO. SKIP THE STARTUP 


BIS 


R2.aDZVTCR 


;SET THE 60 BIT FOR THIS LINE 


BIS 


fNSENAB,(RO) 


; START THE SCANNER 


CLR 


R4 


;SET FOR DELAY 


TST 


(RO) 


TX READY? 


BNI 


4$ 


;BR IF YES 


DELAY 




DELAY 


INC 


R4 


•COUNTER 


BNE 


3S 


BR IF <>0! 


ERROR* 


3 


•TX NOT READY! 


NOV 


(R0),R4 


GET THE LINE POINTED TO BY THE SCANNER 


CNP 


R4,R5 


IS THE LINE NUMBER WHAT IT SHOULD BE? 


PEO 


5S 


■IF YES.60 WORK ON THE NEXT LINE 


ERROR* 


2 


•LINE NUMBER DID NOT MATCH TCR BIT 


SC0P1 




IS SW09 SET? 


DEVICE. CLR 


SET DCLR IN CSR.SETUP FOR NEXT LINE 


ADD 


«400.R5 


POINT TO THE NEXT EXPECTED LINE 


SHIFT 




POINT TO THE NEXT LINE. ARE ALL LINES TESTED? 


INC 


SAVLIN 


ADJUST FOR ERROR PRINTOUT 


BR 


IS i 


IF NOT, 60 DO THE NEXT LINE 


• 







.••TEST TO TRANSMIT ONE CHAR AND 
; •RECEIVE ONE CHAR ON ONE LINE 
:^AT A TINE. THE CHAR IS "252" AND 
:^ALL SELECTED LINES WILL BE TURNED ON 
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88S6 








88S7 








8856 








8859 








8861 








(5) 








(4) 


014040 


000004 




(2) 


014042 


012737 


AAA A « 9 

000013 


(2) 


014050 


012737 


A4 M VVA 

014330 


(1) 


0140S6 


A4 t W9 

012737 


014312 


8862 


014064 


4 A J J A 9 

104417 




8863 


014066 


104421 




8864 


014070 


AAC AW 

005037 


AA4 

001374 


AAA C 

8865 


014074 


4 AC AW 

105037 


AA4 t 1C 

001425 


AAA A. 

8866 


J 4 AA 

014100 


A4 *%*iA'l 

012702 


A AAA A 4 

000001 


AAA 9 

8867 


A4 £ 4 A^ 

014104 


A4 '%9A4 

01 2701 


AAAId 

000252 


^^^^ 

oooo 


A4 J 4 4 A 

014110 


052777 


AAAA J A 

000040 


AAA A 

8869 


A4 4 4 4 A 

014116 


030237 


AA4 

001366 


AA9A 

8870 


A4 / 4 

014122 


AA4 i 

001467 




8871 


A4 i 4 ^/ 

014124 


A4 AO W 

01 0277 


1 65674 


AA9^ 

8872 


A4 £ 4 VA 

014130 


AACAAC 

005005 




8873 


A1 1. 4 

014132 


103r f » 


4 ACACO 

16)652 


6874 


A4 £. 1 Vk. 

014136 


• AAAA1 
100001 




•Ave 

8875 


A4 A 4 / A 

014140 


4 A/. AO A 

104020 




8876 


A4 A 4 1. 9 

014142 


0W5f f f 


1030*C 


8877 


A4 t A t 

014146 


4 AAl. A J 

100404 




8878 


A1 L 4 CA 

014130 






8879 


014152 


AACOAC 

005205 




A AAf\ 

8880 


A4 J 4 

014154 


AA4 #90 

001372 




8881 


A4 t 4 

014156 


4 Al. AAl 

104003 




8882 


A4 A 4 

014160 


10>r3f 


AA4Z0C 


8883 


014164 


AA4 A1.4 
001041 




8884 


A4 

014166 


4 ACOW 

10523r 




8885 


A4 t 4 9^ 

014172 


4 4 A4 99 

110177 


165636 


8886 


A4 i 4 

014176 


A4 17AC 

01 3f 05 


AA1 VV/. 

0013f4 


■ ■•7 

8887 


A1 1.9AO 

014202 


AACVYT 

005r 3r 


AA1 VTO 

001 3r 2 


(1 1 


014206 


• AAAAA 
100006 




(1 } 








# 4 % 

(1 I 








(1 1 








# 4 \ 
(1 1 


014210 


AAAOAC 

006205 




(1) 


A4 t ^4 O 

014212 


4 Att^ AO 

103402 




(1 1 


A4 i ^4 / 

014214 


AAAOA4 

000261 




(1 ) 


A4 4 14 A 

014216 


AAAJ A4 

000401 




(1 ) 


A4 A I'^A 

014220 


AAA1A 4 

000241 




<1 ) 


014222 


AAA4 AC 

006105 




^^^^ 

OOOO 


A4 t 

014224 


AAA VAC 

000305 




ooov 


A4 J 

014226 


4 CA4 AC 

150105 




A AAA 

8890 


A4 J OVA 

014230 


AC O VAC 

052 r 05 


4 AAAAA 
100000 






UU3VUJ 




8892 


014236 


105777 


16SS46 


8893 


014242 


100404 




8894 


014244 


104414 




8895 


014246 


005203 




8896 


0142S0 


001372 




8897 


014252 


104004 





;«THIS IS THE FIRST TIME ANY 
;*DATA IS CHECKED IN THE RECEIVER. 

;*USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
:*yHICH T»ANSHITS A STEADY STREAM OF CHARACTERS. 
TEST 13 



.•LOAD THE NUMBER OF THIS TEST 

;P0INT TO THE START OF THE NEXT TEST 

:USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 

:SET DCLR IN CSR AND SET NAINT MODE 

.-LOAD LPR REGISTER FOR ALL LINES 

:INIT. FOR ERROR PRINTOUT 

;IN1T FOR TCR BIT HANDLER 

.LINE POINTER 

.•SAVE CHARACTER TO BE TRANSMITTED 

; START SCANNER 

:VALID LINE ? 

.NO SET UP NEXT LINE 

:SET TCR BIT 

:SET R5 FOR A DELAY LOOP 

:IS REC DONE « 0 ? 

:IF YES. ALLOW TIME FOR TRDV TO SET 

;*R!C DONE SHOULD » 0 

;TRDY SET? 

;IF YES BRANCH 

:IF NO THEN WAIT FOR IT 

: DELAY LOOP 

.•BRANCH BACK AND TEST AGAIN 

.••TRDY FAILED TO SET! 

;HAVE WE ALREADY SENT CHARAC. 

;IF YES 60 CLEAR TCR BIT 

:IF NOT INDICATE HAVING BEEN HERE 

;LOAD CHARACTER 

.•MAKE EXPECTED LINE « 

:IS THIS TEST IN STAGGERED MODE? 

:IF NOT. SKIP STAGGERED SETUP 



:GET THE LAST BIT INTO THE CARRY BIT 
.•IF IT IS SET. GO CLEAR IT 
.•IF IT IS CLEAR SET IT HERE 
;SKIP THE CLEARING 

.'CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 

:6ET THE NEW BIT BACK INTO R5 

.•MOVE THE LINE NUMBER TO THE UPPER BYTE 

:ADD CHARACTER 

.•ADD DATA VALID 

;IS RDONE SET? 

:1F YES GO GET CHAR. 

:IF NOT THEN WAIT 

.•DELAY LOOP 

.DELAY DONE? 

; •RDONE FAILED TO SET' 



TST13: 


SCOPE 






MOV 


f 13.STSTNM 




MOV 


#TST14,HEXT 




MOV 


Jk4AA ft AJ*M 

#168, LOCK 




DCLASM 






LPRSET 






CLR 


SAVLIN 




CLRB 


A A Al PI ^ 

DONFLG 




MOV 


• 4 AO 

f 1 .R2 




MAU 

MOV 


•OCO b4 

f252.Rl 




BIS 


A84CCMAB &AVU^CB 

fMScNAa,802V(;SR 


3«: 


at T 
BIT 


BO 1 tUB 

R2.L1NC 




acA 


1 CC 




MOV 


BO ^AYliT^B 


CC a 

5*: 


CLH 


bc 




TSTO 


aA7urcD 
•DZVL9R 




BPL 


0» 




CBAAAx 

cRROR* 


OA 

20 


o*: 


TCT 

151 


aA7urcD 




BMI 


7$ 




DELAY 






INC 


R5 




BNE 


6S 




ERROR* 


3 


f •: 


TSTB 


DONFLG 




BNE 


138 




INCB 


DONFLG 




MOVB 


R1 .aOZVTDR 




NOV 


SAVLIN.R5 




TST 


NODE 




BPL 


108 




:UE MUST NOW INVERT THE 




ASR 


RS 




BCS 


88 




SEC 






BR 


98 


0*: 


CLC 




9$: 


ROL 


RS 


10$: 


SWAB 


R5 




BISB 


R1.RS 




BIS 


fDVALID.RS 




CLR 


R3 


IIS: 


TSTB 


aozvcsR 




BMI 


12s 




DELAY 






INC 


R3 




BNE 


lis 




ERROR* 


4 



N 6 
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S698 


0142S4 


017704 


165534 


8899 


014260 


020405 




8900 


014262 


001722 




8901 


014264 


104006 




8902 


014266 


000720 




8903 


014270 


104401 




8904 


014272 


105037 


001425 


890$ 


014276 


005077 


165522 


8906 


014302 


005237 


001374 


8907 


014306 


104420 




8908 


014310 


000702 




8909 








8910 








8911 








AAA 

8912 


014312 


005777 


165472 


8913 


014516 


4 AA Wff 

100375 




8914 


014520 


4 4 A« 9% 

110177 


4 < W 4 A 

165510 


8915 


A4 4 VI J 

014524 


4 A J § A4 

104401 




8916 


A4 4 VIX 

014526 


AAA9A A 

000760 




8917 








6918 








AAA A 

8919 








AA1A 

8920 








8921 








8922 








8925 








892> 








(S) 








(4) 


A4 / WA 

014350 


A AAA A/ 

000004 




(2) 


014552 


012757 


AAAA4 i 

000014 


(2) 


A4 M VJ a 

014540 


012757 


A4 A AO 

014652 


8926 


014346 


10505r 


AA4 A 

001425 


8927 


A4 1. 

014552 


005057 


AA4 Wl. 

001574 


8928 


014536 


104417 




AA^A 

8929 








AAV A 

8950 


014560 


A4 VYA4 

015701 


AA4 WA 

001 570 


8931 


014564 


042757 


A4 AAAA 

010000 


8952 


014572 


4 A^ J ^4 

104421 




SAW 

8955 


OH 574 


A4 A4 W 

010157 


AA4 WA 

001570 


AAV J 

8954 


A4 £. M AA 

014400 


A4 '%9A4 

01 2701 


AAA^f^ 

000252 


8955 


A4 J 4 AJ 

014404 


A4 VVA'% 

015702 


AA4 V A A 

001566 


8956 


014410 


A4 A'k W 

010277 


4 4 A 

165410 


AA W 

8957 


A4 J J 4 4 

014414 


AC WV 

052777 


A AAA J A 

000040 


AAV A 

8958 


014422 


AACAAC 

005005 




aava 

8959 


014424 


005777 


4 XC V^A 

165560 


AA# A 

8940 


A4 A # VA 

014450 


4 AAA A J 

100404 




AAJ 4 

8941 


A4 J A V*% 

014452 


4 A J A 4 J 

104414 




•A^ ^ 

8942 


014454 


AAC 9AC 

00S205 




8945 


A4 ^ ^ V^ 

014456 


AA4 W<% 

001 572 




8944 


014440 


104003 




8945 


014442 


A « WAV 

1 1 7705 


165344 


8946 


014446 


012703 


000001 


8947 


014452 


042705 


177774 


8948 


014456 


001403 




8949 


014460 


106S05 




89S0 


014462 


005305 





12$: 

13$: 
15$: 



NOV 

CUP 

BEQ 

ERRORS 

BR 

SC0P1 

CLRB 

CLR 

INC 

SHIFT 

BR 



BDZVRBUF .R4 

R4.RS 

5$ 

6 

5$ 

D0NFL6 

aOZVTCR 

SAVLIN 

3$ 
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;LOAD THE VALUE ACTUALLY RECEIVED 

; COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME 

;IF YES, 60 DO THE NEXT LINE 

;*N0 DATA/CONTENTS DID NOT COMPARE 

;G0 BACK AND UAIT TO CLEAR TCR BIT 

:CHECK TO SEE IF SWITCH NINE IS SET 

;SET UP FOR NEXT LINE 

; CLEAR PREVIOUS TCR BIT 

;SET LINE INDICATOR FOR NEXT LINE 

: CALCULATE NEXT LINE 

:6ET GET STARTED 



: TIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY 



16$: 



;:• TEST 14 



TST BDZVCSR :IS TRANSMITTER READY? 

BPL 16$ :IF NOT, UAIT FOR IT 

HOVB R1,BDZVTDR :LOAD THE CHARACTER 

SC0P1 :LOOP AGIN IF SU07*1 

BR 13$ .-OTHERUISE, GO PICK UP THE TEST NORMALLY 

TEST 14 

;*THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 
;*DISABLED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 
;*T0 ZERO FOR EACH LINE. 

.-•THIS TEST ALSO VERIFIES THAT THE SILO CAN BE 
.••EMPTIED BY ISSUING A DEVICE MASTER CLEAR. 



TST14: 



100$: 



1$: 
2$: 



3$: 
30$: 



SCOPE 






MOV 


f14.$TSTNM 


:LOAD THE NUMBER OF THIS TEST 


MOV 


fTST15.NEXT 


:POINT TO THE START OF THE NEXT TEST 


CLRB 


D0NFL6 


.•CLEAR TEST CONTROL FLAG 


CLR 


SAVLIN 


.•CLEAR LINE INDICATOR 


OCLASM 




: ISSUE A DEVICE MASTER CLEAR 
;AND SET MAINT BIT IF NECESSARY 


MOV 


PAR.RI 


:SAVE DEFAULT PARAMETERS 


BIC 


#RCVON,PAR 


.'DISABLE RECEIVER IN DEFAULT PAR. 


LPRSET 


;LOAD PARAMETERS IN LPR REGISTER 


MOV 


R1 .PAR 


.RESTORE DEFAULT PARAMETERS 


MOV 


#252. R1 


.•LOAD A CHARAC. INTO R1 


MOV 


LINE.R2 


:COPY AN IMAGE OF THE ACTIVE LINES 


MOV 


R2.aDZVTCR 


;SET TCR BITS FOR ALL ACTIVE LINES 


BIS 


fMSENAB .BDZVCSR 


;SET MASTER SCAN ENABLE 


CLR 


R5 


:INIT DELAY COUNTER 


TST 


BDZVCSR 


;IS TRANS READY SET? 


BMI 


3$ 


.•BRANCH IF YES 


DELAY 




:UAIT FOR TRDY TO SET 


INC 


R5 


INCREMENT DELAY COUNTER 


BNE 


2$ 


.•RETURN TO CHECK TROY 


ERRORS 


3 


:TRDY FAILED TO SET! 


MOVB 


aHDZVCSR.R5 


.•MOVE LINE NO. TO R5 


MOV 


f1,R3 


.INJT TCR POINTER 


BIC 


fC<3>.R5 


; ISOLATE LINE NO. 


BEQ 


31$ 


.•IF LINE 0 BRANCH 


ASLB 


R3 


;SHIFT R3 POINTER TO NEXT LINE 


DEC 


R5 


.DECREMENT LINE NO. 



1 6 
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SEQ 73 





0i«»«»64 


001575 






BNE 


30S 




014H06 


030^02 




311: 


BIT 


R3,R2 


•OCX 


/ TA 


AA1 AAT 

00100/ 






BNE 


4S 








105320 




BICB 


R5.iOZVTCR 






f\A1 tCI 

001351 






BNE 


IS 




014300 


105f 37 


001425 




TSTB 


DONFlG 
















MLKIU. 

01^30* 


OOlOSf 






BNE 


10» 












BR 


5» 




AilCtA 


11A177 


Io53c0 




WVB 


Rl fiDZVTDR 


MAI 


Ui*i3 1*1 


AlAfAO 






Bit 


BV B9 


AQA9 


A41C4X 

Vl*l3 lO 


AAn7£1 
UUVf "ll 






BR 


1» 


OtDJ 






i4^xno 

1033UU 


>• : 


n D 


iPZVTlR 












rt D 


BC 






1AS777 


ID9C90 




TCTB 
1 d ID 


DATurCB 






1AAAA9 






DDI 

DrL 


7« 
f » 


AM? 




1A4A9A 






CDOnD^ 

tRNUK^ 


cO 












DB 

On 


0* 


AMQ 








fmZ 


nci Av 
PCLAT 




AQ7A 




AAC9AS 








DC 

R5 


A071 




AA1 X7A 
WW 1 3' W 






Drlt 


0> 




w l«l?10 


A1 77A4 
W 1 » f W1 


1M949 






DATUDBIIB D/. 






1AAAA7 
1 WWWWr 






DDI 
DrL 




A07t 




AAA^A4 

WWW3W*I 








Di. 

If"! 


A07S 




049704 


1 77774 

till m 




BIT 
Dl V 




A076 




0104Y7 

W 1 VUf 


AA1X74 




nwv 


DA CAUl III 


A077 


V 11700 


104017 








1 f 


A07A 




0AA7AA 
WVVr OO 






BD 

On 


At 


AQ7Q 






001 49S 




lurB 


WUNr LU 


070V 


w H<9rO 


01 ^701 


001 X70 

WW 1 3' w 




■nu 
nuv 


DAD B1 


AMI 


VHDVC 


Q00A7Y 






BR 


IOCS 


AM? 














A9A^ 


VHDV1 


OOSOOC 




1At« 
1 w*> 


CLR 


R5 




w novo 


104414 




11ft« 


DELAY 




AMS 


014A1C 

w 1 "lO 1 V 


00^90^ 

W3CV7 






INC 


R5 


AMA 


w 1 10 1 c 


001X7^ 

WW 1 V' 7 






BNE 


1U 


AM7 

OTW» 


V 1 10 1 1 


10441 X 






DEVICE.CLR 


AQAA 


WHO lO 


AAA94n 






NOP 




AMO 


A1 40A 


AAA94A 
WWWc^W 






NOP 






VHOCC 


1A^777 

IU9f f f 


1AC1A9 
I07 lOC 




TSTB 


aozvcsR 


AQ01 


VHOcO 


1AAAAX 






BPL 


12S 


A003 


A14lkXA 


AACAX7 


0W13r* 




CLR 


SAVLIN 


AOOX 










ERROR* 


20 




A14AVA 


A177A4 


I03l9c 


19C« 


HOV 


aOZVRBUF.R4 


AOO^ 

OTT ■ 


A14A49 
VHO^c 


1AAAAX 
1 WWWW3 






BPL 


13$ 


ft9M 


V non 


00S017 


001 X74 
WWl 




CLR 


SAVLIN 


A047 


A14ASA 
w H07U 


1A4A17 
1 W^W 1 f 






ERROR* 


17 


AMA 

OTTO 


A1/ 






1Xt< 






OTTT 




























9001 










THIS 


TEST PROVES 


9002 










.••CHARACTERS (FLAG 1 


9003 










;*(ONE LINE AT A Til 


9004 










;*TH1S 


IS THE FIRST 


9006 








;:• 


TEST 15 




(5) 
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WHEN RSsO, R3 POINTS TO LINE TCR 
HAS CHARACTER BEEN SENT? 
BRANCH IF NO 

IF YES THEN CLEAR TCR BIT 
IF ALL CHARAC. SENT DROP THROUGH 
IF NO MORE ACTIVE IS THIS SECOND 
TINE HERE? 

IF YES SKIP TO SECOND PART OF TEST 

IF FIRST TINE HERE GO ZERO TCR BITS 

LOAD CHAR. INTO BUFFER 

INDICATE CHARAC. SENT ON THIS LINE 

GO BACK AND WAIT FOR TRDY TO SET 

CLEAR OUT TCR BITS 

INIT DELAY COUNTER 

IS RECEIV. DONE SET? 

IF NOT THEN UAIT TO SEE IF IT URL 

REC DONE SHOULD NOT SET! 

60 FIND UHICH LINE RECEIVED 

STALL FOR RECEIVER 

INCREMENT DELAY COUNTER 

IF NOT DONE 60 RE TEST REC DONE 

READ REC. BUFFER 

IS DVALID SET? 

IF YES GET LINE NO. 

ISOLATE LINE NO. 

SET UP LINE NO. FOR ERROR REPORT 

DVALID SHOULD NOT BE SET 

60 CHECK FOR ANY OTHER CHAR. IN SILO 

INDICATE THAT FIRST PART OF TEST IS DONE 

SAVE DEFAULT LINE PARAM. 

NOU 60 RELOAD LPR REGISTER TO 

TURN RECEIVERS ON 

ZERO DELAY COUNTER 

UAIT FOR ALL CHARAC. TO BE RECEIVED 

INCREASE DELAY COUNT 

CONT. DELAY IF NOT FINISHED 

ISSUE A MASTER CLEAR 



;NOU IS RECEIV. DONE SET? 
.•BRANCH IF NO 

;CLEAR LINE NO FOR ERROR REPORT 

;REC. DONE SHOULD NOT BE SET! 

:READ REC. BUFFER 

;IS DVALID SET? IT SHOULDN'T BE 

;DEVICE. CLR DID NOT ZERO SILO 

;PRINT OUT THE ERROR. (LINE NO. IS IRRELEVANT) 



TEST 15 



BASED UPON VALID LINES) 
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D7V1 


(4) 


014652 


000004 






TST1 


(2) 


0U654 


012737 


000015 


001 246 




(2) 


014662 


012737 


015142 


001362 

WW 1 




(1) 


014670 


012737 


014756 


001364 




9007 


014676 


104417 








9008 


014700 


104421 








9009 


014702 


005037 


001374 






9010 


014706 


104422 








9011 


014710 


105037 


001425 






9012 


014714 


012702 


000001 






9013 


014720 


052777 


000040 


165062 




90U 


014726 


030237 


001366 




3t: 


9015 


014732 


001477 








9016 


014734 


010277 


165064 






9017 


014740 


013700 


001374 






9018 


014744 


006300 








9019 


014746 


105777 


165036 




4S: 


9020 


014752 


100001 








9021 


014754 


104020 








9022 


014756 


005005 






5S: 


9023 


014760 


005777 


165024 




6S: 


9024 


014764 


100404 








9025 


014766 


104414 








9026 


014770 


005205 








9027 


014772 


001372 








9028 


014774 


104003 








9029 


014776 


105737 


001425 




7S: 


9030 


015002 


001047 








9031 


015004 


116077 


001426 


165022 




9032 


015012 


013705 


001374 






9033 


015016 


005737 


001372 






(1) 


015022 


100006 








(1) 












(1) 












(1) 












(1) 


015024 


006205 








(1) 


015026 


103402 








(1) 


015030 


000261 








(1) 


01503? 


000401 








(1) 


015034 


000241 






8S: 


(1) 


015036 


006105 






9S: 


9034 


015040 


000305 






10S: 


9035 


015042 


156005 


001426 






9036 


015046 


052705 


100000 






9037 


015052 


005003 








9038 


015054 


105777 


164730 




11$: 


9039 


015060 


100404 








9040 


015062 


104414 








9041 


015064 


005203 








9042 


015066 


001372 








9043 


015070 


104004 








9044 


015072 


017704 


164716 




12S: 


9045 


015076 


020405 








9046 


015100 


001401 








9047 


015102 


104006 






13$: 


9048 


015104 


104401 







J 6 



E 10-57 

)EVICE DIAGNOSTICS. 



SEO 7^ 



COPYRIGHT 1977 J981 DIGITAL EQUIP. CORP. 



SCOPE 
NOV 
NOV 
NOV 

DCLASN 
LPftSET 
CLR 

BUFSET 

CLRB 

NOV 

BIS 

BIT 

BEQ 

NOV 

NOV 

ASL 

TSTB 

BPL 

ERROR* 

CLR 

TST 

BNI 

DELAY 

INC 

BNE 

ERROR* 

TSTB 

BNE 

NOVB 

NOV 

TST 

BFL 



«15.$TSTNN :LOAD THE NUNBER OF THIS TEST 

«TST16.NEXT ;P0INT TO THE START OF THE NEXT TEST 
«5$.L0CK :USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 

;SET DCLR AND SET NNTFLG 
;LOAD LPR REGISTER FOR ALL LINES 
SAVLIN :INIT FOR FIRST LINE 

;ZERO BUFFER AREA 
:ZERO TCR BIT HANDLER FLAG 
;LINE POINTER 
; START SCANNER 
; VALID LINE ? 
:N0 SET UP NEXT LINE 
:SET TCR BIT 
.'ADJUST BUFFER POINTER 
:OFFSET 

:IS REC DONE = 0 ? 
;IF YES, ALLOW TINE FOR TRDV TO SET 
:*REC DONE SHOULD - 0 

:USE R5 AS TINER WAITING FOR TRDY TO SET 
:IS THE TRANSNITTER READY? 
;IF SO. GO TRANSNIT A CHARACTER 
:WAIT A LITTLE BIT 

:UP THE LOCAL COUNTER. TINE EXCEEDED? 
;IF NOT. GO TRY AGAIN 
;«TRDY FAILED TO SET! 
.-ALL CHARAi. TRANS.? 
;IF YES 60 ZERO TCR BIT 
:LOAD CHARACTER 
;NAKE EXPECTED LINE « 
:IS THIS TEST IN STAGGERED NODE? 
;IF NOT. SKIP STAGGERED SETUP 



DONFLG 
«1.R2 

#NSENAB.aDZVCSR 

R2.LINE 

15$ 

R2.aDZVTCR 

SAVLIN.RO 

RO 

aDZVCSR 
5$ 
20 
R5 

BDZVCSR 
7$ 

R5 
6$ 
3 

DONFLG 
14$ 

TDO(RO).aDZVTDR 

SAVLIN.R5 

NODE 

10$ 



;WE NUST NOW INVERT THE LAST BIT OF THE LINE NUNBER 



ASR 

BCS 

SEC 

BR 

CLC 

ROL 

SWAB 

BIS8 

BIS 

CLR 

TSTB 

BNI 

DELAY 

INC 

BNE 

ERROR* 

NOV 

CNP 

BEQ 

ERROR* 

SC0P1 



R5 
8$ 

9$ 

R5 
R5 

TD0(R0).R5 
#DVALI0.R5 
R3 

BDZVCSR 
12$ 

R3 

11$ 

4 

aDZVRBUF.R4 

R4.R5 

13$ 

6 



:GET THE LAST BIT INTO THE CARRY BIT 
:IF IT IS SET. GO CLEAR IT 
;IF IT IS CLEAR SET IT HERE 
;SKIP THE CLEARING 

:CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 

;6ET THE NEW BIT BACK INTO R5 

:NOVE THE LINE NUNBER TO THE UPPER BYTE 

;ADD CHARACTER 

:ADD DATA VALID 

;REC DONE? 

:IF YES GO CHECK CHAR. 

;IF NOT WAIT FOR REC. 

.'DELAY LOOP TINER 

:DELAY FINISHED? 

;*RDONE FAILED TO SET f 

:LOAD THE VALUE ACTUALLY RECEIVED 

:CONPARE ACTUAL VS EXPECTED. ARE THEY THE SANE? 

:IF YES. GO DO THE NEXT LINE 

;*N0 DATA/CONTENTS DID NOT CONPARE 

.•CHECK TO SEE IF SWITCH NINE IS SET 



K 6 



CVDZA-D HACY11 30(1046) 11-MAR-83 10:13 PAGE 10-58 

CV0ZAD.P11 11-MAR-83 10:06 DZVll DEVICE DIAGNOSTICS. 



SEO 75 



9049 
90S0 
9051 
9052 
9053 
905A 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 
9064 
9065 
9067 
(5) 
(4) 
(2) 
(2) 
9068 
9069 
9070 
9071 
9072 
9073 
9074 
9075 
9076 
9077 
9078 
9079 
9080 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
9081 
9082 
9083 
9084 
9085 
9086 
9087 
9088 
9089 
9090 
9091 



015106 
015112 
015114 
015120 
015122 
015126 
015132 
015136 
015140 



105260 
001315 
105237 
000712 
005077 
105037 
005237 
104420 
000672 



001426 

001425 

164676 
001425 
001374 



015246 
015250 
015252 
015254 
015256 
015260 
015262 
015264 
015270 
015272 
015276 
015302 
015304 
015306 
015310 
015312 
015314 



006205 
103402 
000261 
000401 
000241 
006105 
000305 
052705 
005003 
110277 
105777 
100404 
104414 
005203 
001372 
104004 
017704 



130000 

164540 
164506 



US: 
15S: 



INCB 

BNE 

INCB 

BR 

CLR 

CLRB 

INC 

SHIFT 

BR 



TDO(RO) 
4$ 

DONFLG 
4« 

aDZvTCR 

DONFLG 

SAVLIN 

3$ 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

; INCREMENT BINARY PATTERN FOR THIS LINE 

;G0 'ROUND AGAIN FOR NEXT CHARACTER 

; INDICATE ALL CHAR. SENT 

;BRANCH TO CLEAR TCR BIT 

; CLEAR TCR REGISTER 

;INIT FOR NEXT LINE 

:INC EXPECTED LINE 

;SHIFT THE LINE POINTER. ARE WE ALL DONE? 
;IF NO. GO AROUND AGAIN FOR NEXT LINE 



TEST 16 ••••••••••• 

:*THIS TEST UILL PROVE THAT: 

1) THE TRANSHITTER 'IBREAK BIT" WORKS 

2) THE RECEIVER CAN FLAG "FRAMING ERRORS" 

3) THE RECEIVER CAN FLAG '1>ARITY ERRORS" 
;*ONLV ONE LINE AT A TINE UILL BE EXERCISED. 

TEST 16 



015142 


000004 






015144 


012737 


000016 


001246 


015152 


012737 


015344 


001362 


015160 


012737 


015270 


001364 


015166 


005037 


001374 




015172 


012702 


000001 




015176 


030237 


001366 




015202 


001454 






015204 


104417 






015206 


013701 


001370 




015212 


052737 


000300 


001370 


015220 


104421 






015222 


010137 


001370 




015226 


052777 


000040 


164554 


015234 


013705 


001374 




015240 


005737 


001372 




015244 


100006 







TST16: SCOPE 



IS: 



mv 


f16,STSTNN 


;LOAO THE NUNBER OF THIS TEST 


NOV 


fTST17.NEXT 


.•POINT TO THE START OF THE NEXT TEST 


MOV 


f5S,L0CK 


.-SET FOR LOOP 


CLR 


SAVLIN 


:INIT LINE INDIC. FOR ERROR PRINTOUT 


NOV 


#1.R2 


;LINE POINTER 


BIT 


R2.LINE 


:VALID LINE? 


BEQ 


9S 


;IF NOT SEi FOR NEXT LINE 


DCLASN 




:SET DCLR IN CSR AND SET NNTFLG 


NOV 


PAR.R1 


:PICK UP PARAMETERS 


BIS 


fODDPARiPARITY.PAR .-FORCE ODD PARITY 


LPRSET 




.-LOAD LPR REGISTER 


NOV 


R1 .PAR 


.•RESET PAR TO ORIGINAL VALUE 


BIS 


fNSENAB.aOZVCSR .'START SCANNER 


NOV 


SAVLIN.R5 


.•NAKE EXPECTED DATA 


TST 


NODE 


;IS THIS TEST IN STAGGERED NODE? 


BPL 


4S 


;IF NOT. SKIP STAGGERED SETUP 



;UE NUST NOV INVERT THE LAST BIT OF THE LINE NUNBER 



2S: 
3S: 
4S: 

5S: 

6S: 



164474 



7S: 



ASR 

BCS 

SEC 

BR 

CLC 

ROL 

SUAB 

BIS 

CLR 

NOVB 

TSTB 

6NI 

DELAY 

INC 

BNE 

ERROR* 
NOV 



RS 
2S 

3S 

R5 
R5 



GET THE LAST BIT INTO THE CARRY BIT 
IF IT IS SET. GO CLEAR IT 
IF IT IS CLEAR SET IT HERE 
SKIP THE CLEARING 

CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
GET THE NEW BIT BACK INTO R5 
PUT LINE NUNBER IN UPPER BYTE 



»DVALID!PARER!FRNERR.R5 ;ADD EXPECTED 
R3 :INIT DELAY ACCUHULATOR 

R2.aHDZVTDR :SET BREAK BIT 
iDZVCSR :RECEIVER DONE? 

7S : BRANCH IF YES 

;WAIT FOR REC DONE TO SET 
R3 :INC DELAY LOOP 

6S :DELAY FINISHED? 

4 :*RDONE FAILED TO SET! 

aDZVRBUF.R4 ; ACTUAL 



L 6 



CVDZA-0 HACY11 30(1046) ll-MAR-SS 



CVDZA0.P11 11-MAR-83 10:06 




9092 


015320 


020405 






9093 


015322 


001401 






9094 


015324 


104006 






9095 


01 5326 


105077 


4 ^ J VA/ 

164504 




9096 


015332 


104401 






9097 


015334 


005237 


001374 




9098 


01S340 


4 A4 4 A A 

104420 






9099 


015342 


000715 






9100 










(1) 










(1) 










(1) 










(1) 










(3) 










(6) 










(5) 


A4 C V J / 

015344 


AAAAA# 

000004 






(3) 


015346 


A4 'IWV 

012737 


AAA A 4 9 

00001 7 


001246 


(3) 


015354 


A4 

012737 


A4 A 

01S740 


001362 


(1) 


A4 C ^ 

015362 


4 A/ / 4 9 

104417 






<1) 










(1) 


A4 C J 

015364 


4 A^ J ^14 

104421 






ni 


015366 


005037 


AA4 

001 374 




(1) 


015372 


4 AC A99 

10S037 


AA4 J 'kff 

001425 




(1) 


A4 C 

015376 


4 4 WW 

113777 


AA4 VXX 

001366 


164420 


(1) 


A4 Ci A/ 

015404 


4 AXi ^9 

106427 


AAA^AA 

000200 




(1) 


A4 C / 4 A 

015410 


A4 

012777 


AAA<%AA 

000200 


164424 


(1) 


A4 C / 4 X 

01 5416 


A4 'tV W 

012777 


AAA1AA 

000200 


164422 


(1) 


A4 C J '%£ 

01 5424 








12) 


015424 


A4 

012777 


A4 CC4 1 

015512 


164412 


(2) 


A4 C / VI 

015432 


A4 

012777 


015534 


164400 


(2) 


A4 C / / A 

01 5440 


A4 *1 W9 

012777 


AAA A A 

000200 


164374 


(2) 


A4 ^ i i £. 

015446 


A4 

012777 


AAA^AA 

000200 


164372 


(2) 


A4 €.i €. i 

015454 


052777 


A/ AA/ A 

040040 


164326 


(l) 


A4 C i 

01 5462 


AACAAC 

005005 






/ 4 % 

(1) 


A4 

01 5464 


AAC W9 

005777 


4 X/ V^A 

164320 




/4 % 

(1) 


01 5470 


4 AAAAV 

100003 






/ 4 \ 

( i) 


A4 VI 

015472 


AAA^^ A 

000240 






/ 4 % 

(1) 


A4 C / ^ J 

01 5474 


000240 






(1) 


A4 ff J 9X 

015476 


AAA/ '^A 

000420 






# 4 % 

(1 ) 


A4 ff C AA 

015500 


4 A J J 4 / 

104414 






/ 4 \ 

(1) 


A4 CCA*^ 

01 5502 


AAdAC 

005205 






/ 4 % 

(1) 


A4 C ff AJ 

015504 


AA4 VX"* 

001567 






f 4 k 

(1) 


A4 AX 

015506 


4 A J AAV 

104003 






/ 4 % 

(1) 


A4 C C4 A 

015510 


AAA J 4 9 

000413 






/ 4 % 

(1) 


A4 CC4 ^ 

015512 


022626 






/ 4 \ 

(1 ) 


A4 f ff 4 J 

015514 


042777 


A J AAA A 

040000 


164266 


/ 4 \ 

(1) 


A4 

01SS22 


105737 


AA4 M. ^i: 

001425 




/ 4 \ 

(1) 


A4 CC^X 

015526 


AA4 A4 V 

001013 






# 4 \ 

(1) 


015530 


4 A J A4 A 

104010 






f 4 % 

(1) 


015532 


AAAA 4 V 

000413 






/ 1 > 

111 










<1) 


015536 


022626 






(1) 


015540 


042777 


040000 


164242 


(1) 


015546 


105737 


001425 




(1) 


015552 


001403 






(1) 


015554 


104007 







10:13 PAGE 10-59 

DZV11 DEVICE DIAGNOSTICS. 



SEQ 76 



COPYRIGHT 1977 J981 DIGITAL EQUIP. CORP. 



8S: 
9S: 



CMP R4,R5 :CMP ACTUAL VS EXPECTED. DO THEY MATCH? 

BEQ 8S ;IF VES, GO CLEAN UP 

ERROR* 6 : •DATA/CONTENTS FAILED TO COMPARE 

CLRB iMOZVTDR ; CLEAR BREAK BITS 

SC0P1 ;LOOP? 

INC SAVLIN ;INC LINE « 

SHIFT :SET R2 TO NEXT LINE 

BR U :60 BACK AND TEST NEXT LINE 

TEST 17 

THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 
; •WHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 
.-•BUT WILL INTERRUPT IF THE PROCESSOR STATUS 
;*ALLOWS INTERRUPTS. 
TEST 17 



TST17: SCOPE 
MOV 
NOV 
DCLASN 

LPRSET 
CLR 
CLRB 
HOVB 
HTPS 
MOV 
NOV 



IS: 



4$: 



5$: 



6$: 



7$: 
8$: 



NOV 
NOV 
NOV 
NOV 
BIS 
CLR 
TST 
BPL 
NOP 
NOP 
BR 

DELAY 
INC 



ERROR* 
BR 

P0P2SP 
BIC 
TSTB 
BNE 

ERROR* 
BR 

ERROR* 

P0P2SP 

BIC 

TSTB 

BEQ 

ERROR* 



f17.$TSTNN 
fTST20.NEXT 



SAVLIN 
D0NFL6 
LINE.8DZVTCR 
fNASK 

fNASK.BDZVRIS 
fNASK, aOZVT IS 



;LOAD THE NUMBER OF THIS TEST 

.•POINT TO THE START OF THE NEXT TEST 

;SET DCLR IN CSR AND SET HAINT BIT 

:IF NECESSARY (INTERNAL NODE) 

: SET UP LPR REGISTER 

:INIT LINE INDIC. FOR ERROR 

:INIT TCR BIT HANDLER FLAG 

:SET ALL VALID TCR BITS 

;SET CPU STATUS TO DZV11 PRIO. 

;SET RECEIVER STATUS 

:SET TRANSMITTER STATUS 



f6S.8DZVTIV :SET UP THE TRANSMITTER INTERRUPT VECTOR 
f7S,aDZVRlV ;SET UP THE RECEIVER INTERRUPT VECTOR 
fHASK.aOZVRIS ;SET THE INTERRUPT VECTOR STATUS 
fNASK.BDZVTIS :SET TRANSMITTER INTERRUPT PRIORITY 
#TIE!HSENAB,aDZVCSR ; ENABLE THE DEVICE 



R5 
BDZVCSR 
5$ 



88 

RS 
4$ 
3 

88 

fTIE.aDZVCSR 

DONFLG 

10S 

10 

98 

12 

fTIE.aOZVCSR 

DONFLG 

98 

7 



:INIT DELAY COUNTER 
;TRDY SET? 
:IF NOT GO DO DELAY 
;WAIT FOR INTERRUPT 

:60 CLEAR TIE BIT 
.•DELAY ROUTINE CALL 
:INC DELAY COUNTER 
: DELAY FINISHED? 
.••TRDY NOT SET! 
;G0 CLEAR TIE 

.•REMOVE THE INTERRUPT FROM THE STACK 
;DON*T LET ANY MORE INTERRUPTS OCCUR 
.•PROCESSOR ALLOWING INTER? 
:IF YES NO ERROR 
:IF NOT PRINT ERROR 
: RETURN TO THE NORMAL FLOW 
.••RECEIVER SHOULD NOT INTERRUPT 
;POP FOR FAKE RTI 

:RESET TRANSMITTER INTERRUPT ENABLE 
.INTERRUPTS ENABLED? 
;IF NOT GET OUT 

:IF YES TRANS FAILED TO INTER. 



M 6 



CV02A-D HACY11 50(1046) n-HAR-83 
CVDZAD.P11 11-HAR-83 10:06 



(1) 
(1) 
(2) 
(2) 
(2) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9111 
(5) 
(4) 
(2) 
(1) 
9112 
9113 
91 U 
9115 
9116 
9117 





106427 


000000 

wwwVww 




lot: 

1 Wv • 














012777 

VIC* • » 


01 5666 


164254 




01SS70 


012777 


015672 


164242 




01 SS76 


012777 


000200 


164236 






01 2777 


000200 

WWWfc WW 


164234 

1 W~ b 




01S612 


052777 


0001 40 

Www 1 ^ w 


164170 




01 5620 


1 1 3777 


001426 


164206 




01 5626 


005005 








01 5630 


105777 


164154 

1 W~ I 




13S: 


01 5634 


100003 

1 WWW 








01 5636 


000240 








015640 


000240 








015642 


000404 








015644 


104414 






US: 


015646 


005205 








015650 


001367 








015652 


104004 








015654 


105737 


001425 




18S: 


015660 


001411 








015662 


104011 








015664 


000407 








015666 


104010 






11$: 


015670 


000404 








01 5672 


105737 


001425 




12$: 


015676 


001001 








015700 


104012 








015702 


022626 






16$: 


015704 


042777 


040100 


164076 


15$: 


015712 


105737 


001425 






015716 


001005 








015720 


105237 


001425 






015724 


106427 


000000 






015730 


000635 








015732 


106427 


000200 




17$: 


015736 


104413 









10:13 PAGE 10-60 

D2V11 DEVICE DIAGNOSTICS. 



NTPS fCLEAR 



COPVftlGHT 1977J981 DIGITAL EQUIP. CORP. 
:ALLOW INTERRUPTS 



NOV 

NOV 

NOV 

NOV 

BIS 

NOVB 

CLR 

TSTB 

BPL 

NOP 

NOP 

BR 

DELAY 

INC 

BNE 

ERROR* 

TSTB 

BEQ 

ERROR* 

BR 

ERROR* 
BR 
TSTB 
BNE 

ERROR* 

P0P2SP 

BIC 

TSTB 

BNE 

INCB 

NTPS 

BR 

NTPS 
DEVICE. 



f11$,a02VTlV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
r2$.aDZVRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
fNA^K.BDZVRIS ;SET THE INTERRUPT VECTOR STATUS 
fNASK,aDZVTIS ;SET TRANSNITTER INTERRUPT PRIORITY 
fRIEINSENAB.aOZVCSR ;ENABLE THE DEVICE 
TDO.aDZVTDR :LOAD BUFFER WITH ANY CHAR. 
R5 ;INIT DELAY ACCUMULATOR 

BDZVCSR :REC. DONE? 

14$ ;IF NOT DELAY 

;UAIT FOR INTERRUPT 



18$ 

R5 

13$ 

4 

D0NFL6 

15$ 

11 

15$ 

10 

16$ 

DONFLG 

16$ 

12 

fRIElTIE 

DONFLG 

17$ 

DONFLG 
«CLEAR 
1$ 

«NASK 

CLR 



;DELAY FOR INTERRUPT 
;INCRENENT DELAY COUNTER 
.-DELAY FINISHED? 
:*N0 RX DONE! (NOT SET) 
.•PROCESSOR ALLOWING INTERRUPTS? 
;IF NOT DON'T PRINT ERROR 
: RECEIVER FAILED TO INTERRUPT 
.•CONTINUE TEST 

:TRANSNITTER SHOULD NOT INTER. 
:CONT TEST 

; PROCESSOR ALLOWING INTERRUPTS? 
:IF YES DON'T PRINT ERROR 
;*RECEIVER SHOULD NOT INTERRUPT 
:POP FOR FAKE RTI 
.BDZVCSR ; CLEAR INTERRUPTS 

: SECOND TINE THROUGH? 
:IF YES LEAVE TEST 
;IF NO INDICATE SECOND TEST PASS 
: ALLOW INTERRUPTS 
;RESTART TEST 
.•DON'T ALLOW INTERRUPTS 
.•CLEAR DEVICE. LEAVE TEST 



;:• TEST 20 



;t*****ft****t*********t** TEST 20 •*•••••*•« 

;*THIS TEST VERIFIES THAT THE RECEIVER WILL 
;*INTERRUPT BEFORE THE TRANSNITTER EVEN 
.••THOUGH THE TRANSNITTER WAS ENABLED 
;*FIRST. SET PS TO HIGH (NASK INTERRUPTS): 
:*GET RDONE AND TRDY TO SET; 
:*SET TX IE AND RX IE; 

.••CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 



015740 


000004 




TST20: 


SCOPE 


015742 


012737 


000020 


001246 


NOV 


015750 


012737 


004246 


001362 


NOV 


015756 


104417 






DCLASN 


015760 


104421 






LPRSET 


015762 


005037 


001374 




CLR 


015766 


012777 


016176 


164044 


NOV 


01S774 


012777 


000200 


164040 


NOV 


016002 


012777 


016264 


164034 


NOV 



f20.$TSTNN 
fSEOP.NEXT 



SAVLIN 
f8$.aOZVRIV 
fNASK.aDZVRIS 
il2$.aDZVTIV 



;LOAD THE NUNBER OF THIS TEST 
:POINT TO THE END-OF-PASS HANDLER 
;SET DCLR IN CSR AND NNTFLG 
;LOAD PAR REGISTER FOR ALL LINES 
:INIT. ERROR LINE INDIC. 
;SETUP INTERRUPT STUFF 
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9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9129 
9130 
9131 
9132 
9133 
9134 
9135 
9136 
9137 
9138 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 
9165 
9166 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
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016010 


012777 


000200 


164030 




MOV 


#MASK.aDZVTIS 


; 




016016 


052777 


000040 


163764 




BIS 


fMSENAB,8DZVCSR 






016024 


012702 


000001 






nov 


f1.R2 


;LINE POINTER 




016030 


030237 


001366 




3S: 


BIT 


R?.LINE 


;VALID LINE ? 




016034 


001515 








BEQ 


US 


:IF NOT GO TO NEXT LINE 




016036 


106427 


000200 




4$: 


HTPS 


fHASK 






016042 


110277 


1637S6 






novB 


R2.aDZyTCR 


;SET TCR BIT 




016046 


005777 


163742 






TST 


aOZVRBUF 


.•VALID DATA? 




016052 


100001 








BPL 


.♦4 


;IT BETTER NOT BE SET 




016054 


104017 








ERRORS 


17 


;DATA VALID SHOULD NOT BE 


SET 


016056 


105777 


163726 




SS: 


TSTB 


BDZVCSR 


jRECEIVER DONE ? 




016062 


100001 








BPL 


.♦4 






016064 


104020 








ERRORS 


20 


.•RECEIVER DONE BIT SHOULD 


NOT BE 


016066 


005005 








CLR 


R5 






016070 


005004 








CLR 


R4 






016072 


005777 


163712 




99$: 


TST 


aozvcsR 


;UAIT FOR TRDY 




016076 


100404 








Bni 


100$ 


;BR IF READY 




016100 


104414 








DELAY 




: STALL TIME 




016102 


005204 








!NC 


R4 


• 




016104 


001372 








BNE 


99$ 






016106 


104003 








ERROR* 


3 


:TRDY FAILED TO SET 




016110 


105077 


163720 




100$: 


CLRB 


BDZVTDR 


:SEND A ZERO CHARACTER 




016114 


005004 








CLR 


R4 






016116 


105777 


163666 




6$: 


TSTB 


aozvcsR 


:IS RDONE SET? 




016122 


100404 








BHI 


7$ 






016124 


104414 








DELAY 








016126 


005204 








INC 


R4 






016130 


001372 








BNE 


6$ 






016132 


104004 








ERROR* 


4 


;*RDONE FAILED TO SET! 
.-TRANS DONE BIT ^ 1 ? 




016134 


005777 


163650 




7$: 


TST 


aozvcsR 




016140 


100401 








6MI 


.♦4 


:YES 




016142 


104003 








ERROR* 3 :*N0 TRANS DONE FAILED 


TO SET 



016144 
016152 
016160 
016164 
016166 
016170 
016172 
016174 



016176 
016202 
016204 
016206 
016212 
016216 



016220 
016222 
016224 



052777 
052777 
106427 
000240 
000240 
104007 
104011 
000435 



017704 
010403 
000303 
042703 
005737 
100006 



006203 
103402 
000261 



040000 163636 
000100 163630 
000000 



.•NOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT =1 
.•SET INTERRUPT ENABLES 



BIS 
BIS 
HTPS 
NOP 
NOP 
ERROR* 
ERROR* 
BR 



fTIE.aOZVCSR 
ffRIE.BDZVCSR 
fCLEAR 



7 

11 

14$ 



:ALLOU THE INTERRUPTS 



.••TRANSMITTER FAILED TO INTERRUPT 
; 'RECEIVER FAILED TO INTERRUPT 
;GET OUT 



163612 



177770 
001372 



8$: 



.•RECEIVER INTERRUPT ROUTINE 
MOV aDZVRBUF.R4 : ACTUAL 
R4.R3 
R3 

fC<7>,R3 
MODE 
11$ 



MOV 

SVAB 

BIC 

TST 

BPL 



STRIP JUNK 

IS THIS TEST IN STAGGERED MODf 
IF NOT. SKIP STAGGERED SETUP 



:UE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 



ASR 

BCS 
SEC 



R3 
9$ 



GET THE LAST BIT INTO THE CARRY BIT 
IF IT IS SET. GO CLEAR IT 
IF IT IS CLEAR SET IT HERE 



B 7 



CVOZA>D MACYII 30<1046) 11-NAR-83 
CVDZA0.P11 11-MAR-83 10:06 



(1) 
(1) 
(1) 
9167 
9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 
9182 



016226 
016230 
016232 
016234 
016240 
016242 
016244 
0162S0 
016252 
0162S4 
0162S6 
016262 



000401 
000241 
006103 
020337 
001401 
104015 
042704 
120504 
001401 
104005 
040277 
000401 



016264 104011 



016266 
016270 
016274 
016276 



022626 
005237 
104420 
000137 



001374 
177400 

163542 



001374 
016030 
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9S: 


BR 


lot 


THF (I FARING 


CLC 


R3 


>CIEAR THF CARRY BIT HMUFRCinM fit l IMf PABITVI 


lot: 


ROL 


'GET THE NEW BIT BAfK INTO R^ 


11$: 


CMP 


R^.SAVLIN 


■IS THIS A VALID LINF 




BEO 




•YES 




ERRORS 


15 


;*INVALID LINE 




6IC 


#*C<377>,R4 


; STRIP JUNK 




CNP8 


R5,R4 


DATA COMPARE ? 




BEO 


.♦4 


•YES 




ERRORS 


5 


*DATA DOES NOT COMPARE 




6IC 


R2,aDZVTCR 


iCLEAR TCR BIT 




BR 


13» 


•GO GET OUT OF INTERRUPT NODE 



; TRANSMITTER INTERRUPT 
12$: ERROR* 11 

13$: P0P2SP 
14$: INC SAVLIN 
SHIfT 

JMP 3$ 



SVC ROUTINE 
;THE RECEIVER INTERRUPT FAILED 
:T0 OVERRIDE THE TRANSMITTER 
.•REMOVE THE INTERRUPT VECTOR FROM THE STACK 
.•ADJUST FOR NEXT LINE 
;GET THE NEXT POINTER. IF DONE. ADVANCE 
;OTHERUISE GO DO THE NEXT LINE 
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9184 

9185 ; ERROR TABLE 

9186 016302 000000 .ERRTAB: 0 :ERROR 0 

9187 016304 000000 0 

9188 016306 000000 0 
9189 

9190 016310 016450 EHI ;ERR0R 

9191 016312 017266 DHl 

9192 016314 017406 DTI 
9193 

9194 016316 016523 En2 .-ERROR 2 

9195 016320 017312 DH2 

9196 016322 017420 DT2 
9197 

9198 016324 016551 En3 :ERR0R 3 

9199 016326 017345 DH3 

9200 016330 017436 DT3 
9201 

9202 016332 016610 EN4 :ERR0R 4 

9203 016334 017345 0H3 

9204 016336 017436 DT3 
9205 

9206 016340 016637 EN5 .ERROR 5 

9207 016342 017357 DH4 

9208 016344 017444 DT4 
9209 

9210 016346 016666 EM6 :ERR0R 6 

9211 016350 017357 DH4 

9212 0163S2 017444 DT4 
9213 

9214 016354 016725 EM7 : ERROR 7 

9215 016356 017345 DH3 

9216 016360 017436 DT3 
9217 

9218 016362 016766 EHIO .'ERROR 10 

9219 016364 017345 DH3 

9220 016366 017436 DT3 
9221 

9222 016370 017030 EH11 .-ERROR 11 

9223 016372 01 7345 DHS 

9224 016374 017436 DT3 
9225 

9226 016376 017066 EMI 2 : ERROR 12 

9227 016400 017345 DH3 

9228 016402 017436 DT3 
9229 

9230 016404 000000 0 

9231 016406 000000 0 

9232 016410 000000 0 
9233 

9234 016412 000000 0 

9235 016414 000000 0 

9236 016416 000000 0 
9237 

9238 016420 017125 EN15 ; ERROR 15 

9239 016422 000000 0 
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9240 

9241 

9242 

9243 

9244 

924S 

9246 

9247 

9248 

9249 

9250 

92S1 

9252 



016424 000000 



016426 
016430 
016432 

016434 
016436 
016440 

016442 
016444 
016446 



000000 
000000 
000000 

017167 
017345 
017436 

017225 
017345 
017436 



0 
0 
0 

Em 7 

DH3 
0T3 

En20 

0H3 

DT3 



; ERROR 17 
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9254 

9255 

9259 

9260 

9261 

9262 

9263 

9264 

9265 

9266 

9267 

9268 

9269 

9270 

9271 

9272 

9273 

9274 

9275 

9276 

9277 

9278 

9282 

9283 

9284 

9285 

9286 

9287 

9288 

9289 

9290 

9291 

9292 

9293 

9294 

9295 

9296 

9297 

9298 

9299 

9300 

9301 

9302 

9303 

9304 

9305 

9306 

9507 

9308 

9309 

9317 

93tS 

9319 

9320 

9321 

9^2 



016450 
016523 
016551 
016610 
016657 
016666 
016725 
016766 
017030 
017066 
017125 
017167 
017225 

017266 
017312 
017345 
017357 



047200 
200 
200 
051200 
200 
042200 
200 
052600 
051200 
052600 
200 
200 
200 

052200 
042600 
200 
200 



020117 
042522 
051124 
041505 
040504 
053132 
051124 
042516 
041505 
042516 
041501 
040504 
042522 

040522 
050130 
044514 
054105 



017406 


000002 




017410 


006 


005 


017412 


001530 




017414 


006 


001 


017416 


001326 




017420 


000003 




017422 


006 


004 


017424 


001340 




017426 


006 


001 


017430 


001556 




017432 


006 


001 


017434 


001526 




017436 


000001 




017440 


005 


001 


017442 


001574 




017444 


000005 




017446 


006 


004 


017450 


001540 




017452 


006 


001 


017454 


001556 




017456 


005 


001 


017460 


001574 





052502 
044507 
047101 
044505 
040524 
050461 
047101 
050150 
044505 
050150 
044524 
040524 
042505 

020120 
041505 
042516 
042520 



EMI: 

EM2: 

EM5: 

EN4: 

EM5: 

EM: 

EM7: 

EMIO: 

EMU: 

Em 2: 

Em 5: 

Em 7: 

EM20: 

DHI: 
DH2: 
DH5: 
DH4: 

.EVEN 

0T1: 



0T2: 



0T5: 



DT4: 



: ERROR MESSAGES 

.ASCIZ <200>/N0 BUS REPLY RESPONSE FROM DZVll REGISTER/ 

.ASCIZ <?00>?REGISTER R/U FAILURE? 

.ASCIZ <20u>/TRANSMn READY (TRDY) NOT SET/ 

.ASCIZ <200>/RECElVER DONE NOT SET/ 

.ASCIZ <200>/DATA COMPARISON ERROR/ 

.ASCIZ <200>/DZVl1 ^RECEIVER BUFFER* ERROR/ 

.ASCIZ <200>/ TRANSMITTER FAILED TO INTERRUPT/ 

.ASCIZ <200>/UNEXPECTED TRANSMITTER INTERRUPT/ 

.ASCIZ <200>/RECElVER FAILED TO INTERRUPT/ 

.ASCIZ <200>/UNEXPECTED RECEIVER INTERRUPT/ 

.ASCIZ <200>/ACTION DETECTED ON INVALID LINE./ 

.ASCIZ <200>/DATA VALID SHOULD NOT BE SET/ 

.ASCIZ <200>/RECElVER DONE SHOULD NOT BE SET/ 

.ASCIZ <200>/TRAP PC DZV11 REG/ 

.ASCIZ <200>/EXPECTED FOUND REGISTER/ 

.ASCIZ <200>/LlNE NO./ 

.ASCIZ <200>/EXPECTED FOUND LINE/ 



.•DATA TABLES FOR ERROR MESSAGES 
2 

6,5 



017462 
017464 
017466 



002450 
001560 
001120 



.EVEN 



DLYTBL: 



.BYTE 
SREG1 
.BYTE 
SRE60 

5 

.BYTE 
SRE65 
.BYTE 
SREG4 
.BYTE 
SRE60 

1 

.BYTE 
SAVLIN 

5 

.BYTE 
SREG5 
.BYTE 
SREG4 
.BYTE 
SAVLIN 



2450 
1560 
1120 



6.1 

6.4 
6.1 
6.1 

5.1 

6.4 
6.1 
5.1 



: TABLE OF DELAY TINES FOR INDIVIDUAL BAUD RATES 



.•TIME FOR 50 BAUD 
:T1ME FOR 75 BAUD 
:TIME FOR 110 BAUD 
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9523 

9524 

9525 

9326 

9527 

9328 

9329 

9330 

9331 

9332 

9333 

9334 

9335 

9336 

9337 

9338 



017470 
017472 
017474 
017476 
017500 
017502 
017S04 
017506 
017510 
017512 
017514 
017516 
017520 



000750 

000660 

000330 

000150 

000060 

000040 

000030 

000020 

000010 

000001 

000001 

000001 

000001 
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750 
660 
330 
150 
60 
40 
30 
20 
10 
1 
1 
1 
1 



SEO 85 



COPYRIGHT 1977.1981 DIGITAL EQUIP. C0«P, 

TINE FOR 134 BAUD 

TIME FOR 150 BAUD 

TIME FOR 300 BAUD 

TIME FOR 600 BAUD 

TINE FOR 1200 BAUD 

TIME FOR 1800 BAUD 

TIME FOR 2000 BAUD 

TIME FOR 2400 BAUD 

TIME FOR 3600 BAUD 

TIME FOR 4800 BAUD 

TIME FOR 7200 BAUD 

TIME FOR 9600 BAUD 

TIME OF DELAY FOR 19200 BAUD 



;DELAVS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 
;FOR ALL TESTS TO FUNCTION CORRECTLY ON A LSI 11. 
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9340 

9341 

9342 

9343 

9344 

934$ 

9346 

9347 

9348 

9349 

9350 

9351 

9552 

9353 

9354 

9355 

9356 

9357 

9358 

9359 

9360 

9361 

9362 

9363 

9364 

9365 

9366 

9367 

9368 

9369 

9370 

9371 

9372 

9375 

9574 

9575 

9576 

9577 

9578 

9579 

9580 

9581 

9582 

9583 

9584 

9585 

9386 

9587 

9588 

9589 

9390 

9591 

9592 

9595 

9594 

9595 



017522 
017526 
017550 
017554 
017556 
017540 



000400 
000404 
000410 
000416 
000422 
000424 
000426 
000432 
000434 
000440 
000444 
000450 
000454 
000460 
000464 
000470 
000476 
000502 

000504 
000510 
000512 
000516 
000522 
000526 
000530 
000554 
000556 
000542 
000544 



005227 
001002 
004757 
005727 
000000 
000207 

017542 
000400 
005057 
015746 
012757 
012700 
005720 
000240 
020027 
105775 
010057 
012700 
040057 
040057 
040057 
040057 
040057 
012757 
012657 
000^07 

012716 
000002 
012657 
012700 
015701 
010602 
012704 
014446 
020427 
101374 
010607 



177777 
000400 



017556 
000004 

000504 000004 
160010 



174000 

017556 
000040 
000006 
000016 
000022 
000052 
000056 

170000 000140 
000004 



000512 

000004 
000402 
000376 

000570 

000546 



.S8TTL fALCON (KXT-11) UPGRADE ROUTINES. 



;;6PA 



THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIACNOSTIC(S) 
TO RUN ON A FALCON (KXT-11) BASED SYSTEM. 

TO DETERMINE WHETHER WE'RE A FALCON OR NOT, WE'LL SIZE THE 1ST 3/4 OF 
THE I/O PAGE (28K TO 51K). FALCON HAS 2KW LOCAL RAM AT 28lC(^4) TO 30K 
AND A flACRO-ODT AT 50K TO 51K. CONSEQUENTLY. ALL I/O DEVICES HUST 
BE PLACED BETWEEN 174000 AND 177776. ADDITIONALLY. WE'LL STRAP THE 
ENT AND TRAP SERVICE LEVEL TO PRI6. AND SET THE HALT VECTOR SO THAT 
WE CAN STOP THE SUCKER 



1 1 



TO NININIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE. THE 
BULK Of THIS CODE IS PLACED IN THE FLOATING VECTOR SPACE (400-776). 
IF THE CPU AT HAND IS A FALCON (KXT11). IT STAYS THERE (NO HARM DONE). 
OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL "TRAP-CATCHER" STATE. 



FALCON: 


INC 


#-1 




BNE 


It 




CALL 


KXTCHK 


IS: 


TST 


(PC)* 


KXTFLA6: 0 






RETURN 






tSVPCs 






s 400 




KXTCHK: 


CLR 


KXTFLAG 




NOV 


aff4,-($p> 




MOV 


#2$. if 4 




NOV 


f160010.RO 

" » WWW V w 4 nw 


IS: 


TST 


(RO)* 




240 






CMP 


RO.f 174000 




BLO 


IS 




MOV 


RO.KXTFLAG 




MOV 


f40.R0 




BIC 


R0.a«6 




BIC 


R0.af16 




BIC 


R0.8f22 




BIC 


R0.a«52 




BIC 


R0,af56 




MOV 


#170000.81140 




MOV 


(SP)*.if4 




RETURN 




2t: 


MOV 


f3S.(SP) 




RTI 


3S: 


MOV 


(SP)*.a«4 




MOV 


f402.R0 




NOV 


af576.R1 




NOV 


SP.R2 




MOV 


f6S.R4 


4$: 


MOV 


-(R4).-(SP) 




CMP 


R4.f5S 




BHI 


4S 




MOV 


SP.PC 



ONCE-ONLY 



1 1 1 

« • • 



: EXECUTE FALCON CHECK 
; TEST FALCON FLAG... 
:...NZ * FALCON... 
;...AND RETURN TO CALLER... 



RESTORE FROM 374:376 AT END 

ASSUME NUT FALCON. 

SAVE ERROR VECTOR. 

SET A TRAP CATCHER. 

FALCON RAM STARTS AT 28K«4. 



SIZE TO 51K. 

MUST BE FALCON. SET THE FLAG 
GET PRI1 BIT... 
...AND LOWER BUS-ERROR... 
■ • vfiPT « * • 
...lOT.. . 

I.'.'aND'trAP service to PRI6 
ENABLE 'BREAK" HALT. 
RESTORE ERROR VECTOR... 
>..ANO RETURN. 

TRAP — NOT A FALCON... 
...CONTINUE. 
RESET ERROR VECTOR 
SET-UP TO RESTORE FLOATING... 
...VECTORS (400 - 776). 
SAVE STACK POINTER IN R2 

PUSH THE RESTORE CODE... 
...ONTO THE STACK. 

AND EXECUTE IT. 



;.GPA 
;;GPA 
;;6PA 
;;CPA 
;;GPA 
;;GPA 

;;GPA 
;;G?A 
;;GPA 
:;6PA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;6PA 
;;GPA 
;;GPA 
;;GPA 
;:GPA 
;;GPA 
;;6PA 
;;6PA 
;;GPA 
;;GPA 

:;GPA 
;;6PA 
;;6PA 
;;6PA 
;;GPA 
;;GPA 

:;GPA 
;;GPA 
;;6PA 
;;6PA 
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UPGRADE ROUTINES. 



SEO 8S 



;;GPA 



9597 

9398 

9399 

9400 

9401 

9402 

9403 

9404 

9405 

9406 

9407 

9408 

9409 

9410 

9411 

9412 

9413 

9414 

941S 

9416 

9417 

9418 

9419 

9420 

9421 

9422 

9423 

9424 

9425 

9426 

9427 

9428 

9429 

9430 



9431 



9432 
9433 
9434 
9438 
9439 
9440 
9444 



000546 
000552 
000554 
000556 
000562 
000564 
000566 
000570 



000570 
000576 
000600 
000606 
000614 
000616 
000624 
000632 
000640 
000646 
000654 
000660 
000666 

000670 
000676 
000704 
000712 
000720 
000726 
000732 
000740 
000746 
000754 
000762 
000770 



010060 
010110 
022020 
020027 
101771 
010206 
000207 



017542 



023727 
001003 
012737 
023727 
001003 
012737 
012737 
012737 
012737 
012737 
005037 
012737 
000207 

030600 
051123 
042522 
033461 
030472 
024460 
030600 
041505 
042101 
020123 
031472 
020040 



000002 
017542 
000001 



177776 
000776 



001174 160010 



174040 
001170 

000370 
000670 
174000 
177770 
000732 
002512 
000370 



052123 
040440 
051523 
030064 
033467 
000040 
052123 
047524 
051104 
030050 
030067 
000040 



001174 
000300 

001170 
002462 
002466 
002470 
002506 

002514 



041440 
042104 
024040 
030060 
033467 

053040 
020122 
051505 
030060 
020051 



THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 



6$: 



NOV 
WV 
CHP 
CHP 

BLOS 

NOV 

RETURN 



R0.-2(R0) 

RUiRO) 

(RO)*.(RO)^ 

R0,f776 

5$ 

R2.SP 



: RESTORE .*2... 
:...HALT (OR IDT). 



LOOP 'TIL DONE 
THEN RESTORE SP... 
...AND RETURN TO CALLER 



IF FALCON. THIS AREA IS FREE FOR ANY PROGRAN UNIQUE 

CHANGES OR DATA STRUCTURES. 

BE SURE THAT IT DOESN'T GET SCREWED UP !! 

INIT SBASE AND SVECTI AND TUEAK THE "SGETPAR" CALLING 
SEQUENCE TO ACCEPT THE VALID FALCON RANGE. 



FALCINI: CNP 
BNE 



IS: 
2S: 



NOV 
CNP 
BNE 
NOV 
NOV 
NOV 
NOV 
NOV 
CLR 
NOV 
RETURN 



SBASE. ff ABASE 
IS 

«1 74040. SBASE 
SVECTI. fAVECTI 
2S 

f370.SVECT1 
«3S.GETCSR>2 
#174000.GETCSR*6 
«177770.GETCSR*10 :...AND VALID RANGE. 
«4S.GETVEC«2 : SUBSTITUTE VECTOR TEXT... 
GETVEC«6 

f370.GETVEC>10 :...AND VALID RANGE. 

: RETURN TO CALLER. 



IS SBASE VIRGIN ?? 
SKIP NEXT IF NOT 
VES. SET ENGINEERING DEFAULT 
IS SVECTI VIRGIN ?? 
SKIP NEXT IF NOT 
YES. SET ENGINEERING DEFAULT 
SUBSTJTUE CSR TEXT... 



3S: 



.ASCIZ <200>*1ST CSR ADDRESS (174000:177770) 



4S: 



.ASCIZ <200>'1ST VECTOR ADDRESS (000:370) 



.EVEN 
SFREE- <1000>.>/2 
.sSSVPC 

CORNAX: 
.END 



; FREE UORDS LEFT. 



:GPA 
;GPA 
;6PA 
;GPA 
;6PA 
;6PA 
;6PA 
;GPA 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 

;GPA 



;;GPA 



;;GPA 
;;GPA 
;;GPA 
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1 7 
- USER SYMBOLS 



ABASE > 


160010 


83871 


8730 


ABORT 


006610 


8731 f 




AB0RT1 


006644 


8731 » 




AB0RT2 


006660 


8731 # 




ACDU1 « 


000017 


8392« 


8730 


ACDW2 » 


000000 


8730 




ACPUOP* 


000000 


8730 




ACTIVE 


001420 


8730t* 


8731* 


AOOWO • 


017470 


8390» 


8730 


AOOWl » 


017470 


8390f 


8730 


A00W10« 


017470 


8390« 


8730 


AODUlls 


017470 


8390i 


8730 


AOOWl 2* 


017470 


8390# 


8730 


A0DW13- 


017470 


83901 


8730 


AOOWU* 


017470 


83901 


8730 


AOOWl 5« 


017470 


8390# 


8730 


AO0W2 « 


017470 


8390# 


8730 


AD0U3 « 


017470 


8390# 


8730 


A00W4 » 


017470 


8390# 


8730 


A00W5 « 


017470 


83901 


8730 


A00W6 * 


017470 


8390# 


8730 


A0DU7 » 


017470 


8390» 


8730 


A00W8 * 


017470 


8390f 


8730 


A0DW9 > 


017470 


83901 


8730 


ADEVCT* 


000000 


8730 




AOEVM « 


000001 


8393# 


8730 


AORCNT 


006125 


8731 #* 




AOVANC* 


104400 


87301 


8731 


AENV s 


000000 


8730 




AENVM » 


000000 


8730 




AFATAL* 


000000 


8730 




ANADR1> 


000000 


8730 




AMADR2* 


000000 


8730 




ANA0R3* 


000000 


8730 




AMA0R4* 


000000 


8730 




AMAMS1* 


000000 


8730 




AnAns2« 


000000 


8730 




ANAnS3» 


000000 


8730 




ARAMS4* 


000000 


8730 




AMSGAO* 


000000 


8730 




AMSGLG* 


000000 


8730 




AHSGTY* 000000 


8730 




AMTVPI* 000000 


8730 




AnTVP2« 


000000 


8730 




AMTYP3> 


000000 


8730 




AMTYP4* 000000 


8730 




APASS ■ 


000000 


8730 




APRIOR* 


000000 


8730 




APTCSU* 


000040 


•7511 




APTENV* 


000001 


87311 




APTSI7* 


000200 


87311 




APTSPO* 000100 


87311 




ASWREG* 


000000 


8730 




ATESTN* 


000000 


8730 




AUNIT * 


000000 


8730 




AUSUR * 


000000 


8730 





8736 8810 
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J 7 
USER SYHBOLS 



SEQ 87 



AUTO.S 
AVICTU 
AVECT2* 
BINVRD 
BITO « 
BITOO > 
BIT01 * 
Bn02 « 
B1T03 « 
B1T04 « 
BITOS * 
B1T06 * 
BIT07 * 
BITOS « 
B1T09 ■ 
BIT1 « 
B1T10 - 
B1T11 ■ 
B1T12 « 
BIT13 « 
B1TT4 « 
B1T1S « 
B1T2 « 
B1T3 * 
B1T4 « 
BITS * 
BIT6 » 
BIT7 ■ 
BITS « 
BIT9 > 
BPTVEC* 
BRKO « 
BRKI ■ 
BRK2 « 
BRK3 " 
BM 

BUFSETs 
CHRCNT 
CLEAN « 
CNVRT « 
CONVRTs 
COIHIAX 
COO < 
CGI » 
C02 ' 
COS ' 
CR 

CRLf * 
CSRMAP 
CTCLE 
OATASP 
OATAHO 
DCLASN« 
OCLR ' 
OOISP = 
OELAt = 



011562 

000300 

000000 

006A00 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000014 

000400 

001000 

002000 

004000 

004722 

104422 

006376 

000000 

104412 

104411 

017542 

000400 

001000 

002000 

004000 

000015 

000200 

011570 

010722 

007150 

007156 

104417 

000020 

177570 

1044U 



8730 

8391 « 

8730 

8731# 

8730« 

8730« 

8730« 

8730« 

8730« 

8730« 

8730« 

87304 

87301 

8730f 

8730# 

8730» 

8730» 

87301 

S730» 

8730« 

S730» 

S730» 

87301 

8730» 

8730» 

8730» 

87301 

8730» 

8730» 

8730» 

8730# 

8730« 

8730« 

87301 

8730» 

8730 

87301 

8731 »• 

87301 

87301 

87301 

9440« 

87301 

8730# 

8730f 

8730f 

87S0# 

87301 

8731» 

8730 

8731»* 

8731#» 

87301 

8730« 

87301 

87301 



8731« 
8730 



8824 



8793 
8731 



8731 



8731 
8731 

8731 
87SS 
87SS 



8731# 
9010 

9100* 
8731 
8731 
9441 



8731 
8731 

8731« 



8862 
8731 



9419 



8793 



91S4t 



8928 
8744 



9007 
8765 



9073 
8777 



9100 
8784 



9112 
8786 



8755 8833 8841 8850 8878 8894 8941 8969 8984 9025 9040 9087 
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9100 


9135 


9143 




OEVAOR 


006122 


8731«* 








DEVICE* 


104A13 


8730# 


8731 


8753 


87S4 


DH1 


017266 


9191 


9273# 






DH2 


01 7312 


9195 


9274« 






0H3 


017345 


9199 


9203 


9215 


9219 


0H4 


017357 


9207 


9211 


9276# 




DISPLA 


001306 


87301* 


8731* 






OlSPRE 


000174 


8730« 








OLYCNT 


006474 


8730* 


8731« 






OLYTBL 


017462 


8730 


9320« 






OONFLG 


001425 


8730# 


8865* 


8882 


8884* 


OSWR « 


177570 


8730* 








DTRO > 


000400 


8730« 


8754 






0TR1 > 


001000 


8730« 


8754 






0TR2 ' 


002000 


8730« 


8754 






0TR3 » 


004000 


8730« 


8754 






0T1 


017406 


9192 


9283# 






0T2 


017420 


9196 


92891 






0T3 


017436 


9200 


9204 


9216 


9220 


DT4 


017444 


9208 


9212 


9301 « 




OVAL 10* 


100000 


8730« 


8793 


8890 


9036 


OZCRO 


001500 


8730* 


8731 






DZCR1 


001512 


8730« 








0ZCR10 


001620 


8730« 








DZCR11 


001632 


8730« 








DZCR12 


001644 


8730« 








DICR13 


001656 


8730« 








DZCRU 


001670 


87301 








DZCR15 


001702 


8730f 








DZCR16 


001714 


8730« 








DZCR17 


001726 


8730f 








DZCR2 


001524 


8730# 








DZCR3 


001536 


87301 








0ZCR4 


001550 


8730# 








DZCR5 


001562 


87301 








DZCR6 


001574 


8750# 








DZCR7 


001606 


8730# 








DZVACT 


001406 


87S0#* 


8731 






DZVCSR 


002010 


8730# 


8731* 


8736 


8743 






8937* 


8939 


8965 


8990 






9133 


9141 


9147 


9152* 


omo 


001502 


8730# 


8731 






DZ VC1 


001514 


8730# 








02VC10 


001622 


8730# 








DZVC11 


001634 


87S0f 








0ZVC12 


001646 


8730f 








0ZVC13 


001660 


87S0# 








DZVCU 


001672 


87S0# 








DZVC15 


001704 


87S0f 








DZVC16 


001716 


8730# 








DZVC17 


001730 


8730f 








0ZVC2 


001526 


8730f 








0ZVC3 


001540 


87S0# 








DZVC4 


001552 


8730f 








OZ¥CS 


001564 


87S0i 









K 7 
USER svmoLS 

8763 8793 
9227 9247 



SEQ 



8794 8812 88S0 8987 9100 



9251 9275# 



8926* 8956 8979* 9011* 9029 9051* 9054* 9100* 



9228 9248 9252 9297« 



9082 



8753 
9013* 



8755 8764 
9019 9023 



8850 8868* 8873 8876 8892 8912 
9038 9078* 9085 9100* 9119* 9128 
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SEO 89 



DZVC6 

D2VC7 

OZVLEV 

02VLPR 

DZVnSR 

DZVNUM 

OZVRBU 

OZVRIS 

DZVRIV 

DZVTCR 

DZVTDR 

DZVTIS 

DZVTIV 

OZV.EN 

DZV.HA 

EIGHT ■ 

EIGHTS* 

EHTSAV 

EMTVEC- 

ENI 

EHIO 

ENII 

ENI 2 

ENI 5 

ENI 7 

EN2 

EN20 

ENS 

EN4 

ENS 

EN6 

EN7 

ERRHSG 
ERROR « 



ERRVEC* 

ERTA80 

EVE PAR « 

EXITER 

FALCIN 

FALCON 

FIVE > 

FIVES • 

FRNERR* 

GETCSR> 

GETSUR> 

GETVEC« 

HALTS 

HDRFLG 

HDZVCS 

H07VLP 

HOZVNS 

HDZVR8 



001576 
001610 
011272 
002020 
002030 
001414 
002014 
002042 
002040 
002024 

002034 
002046 
002044 
001740 
001 SOO 
000030 
000070 
002134 
000030 
016450 
016766 
017030 
017066 
017125 
017167 
016523 
017225 
016551 
016610 
016637 
016666 
016725 
007124 
104000 



000004 
007304 
000000 
007234 
000570 
017522 
000000 
000040 
020000 
002460 
007346 
002504 
007154 
001423 
002012 
002022 
002032 
002016 



87301 

87301 

8731# 

8730« 

8730« 

873C#« 

8730« 

8730» 

87301 

8730» 

9100* 

8730# 

8730« 

8730« 

8730« 

8730# 

8730f 

8730» 

8730» 

8730»* 

9190 

9218 

9222 

9226 

9238 

9246 

9194 

9250 

9198 

9202 

9206 

9210 

9214 

8731 #• 

87301 

8845 

9043 

9173 

8730f 

8731# 

87301 

8731# 

8730* 

8730* 

8730f 

8730f 

87301 

87301 

8730* 

8730# 

8731f 

8730#* 

87301 

8730# 

8730# 

8730ff 



8731* 


8793* 




88i3 


8731* 


8736 


8794 


8731* 








8731* 


8736 


8793 


8898 


8731* 


9100* 


911^* 




8731* 


9100* 


91 1>* 




8731* 


8736 


8754 


8755* 


9124* 


9174* 






8731* 


8794* 


8885* 


8914* 


8731 • 


9100* 


9118* 




8731* 


9100* 


91 17* 




8731 








8731 









92591 
9266« 
92671 
9268« 
9269# 
92701 
9260f 
9271 # 
9261 « 
9262« 
9263f 
9264# 
926Sf 

8736 
8850 
9047 
9177 
8731 • 



94161 
93571 



9082 
9422* 
87311 
9425* 



8731* 
8731* 
8731 • 
8731* 



8972 



8960* 



8994 9044 



9091 



8871* 8905* 8936* 
9031* 9100* 9139* 



9125 9162 
8954* 8963* 



9016* 9053* 



8751 
8875 
9090 



8753 8754 8755 
8881 8897 8901 
9094 9100 9127 



8770 8776 8783 
8944 8967 8977 
9130 9138 9146 



8791 8793 
8993 8997 
9149 9157 



8794 8837 
9021 9028 
9158 9169 



9423* 
9426* 



9424* 
9427* 



8778* 8945 



n 7 



cvd:a-o 


HACY11 30(1046) 


11-nAR-83 10:13 PAGE 14-4 


CV02A0.P11 ll-HAR-85 


10:06 

1 W * WW 




CROSS REFERENI 


MOIVTC 


002026 


8730# 


8731* 


8832* 8840< 


HDZVTO 


002056 


8730f 

w ^w^ 


8731* 


9084* 9095 < 


HlLin 


006120 


8731f* 






HT « 


000011 


8730# 

w • ^w^ 


8731 




INBUF 


010616 


8731 f* 






INIFLG 


001422 


8730«* 


8731* 




INSTERs 


104404 


8730« 


8731 




INSTR « 


104403 


8730# 

W f 


8731 




1NSTR2 


005720 


8731* 






10TVEC« 


000020 


8730f 


8731* 




KXTCHK 


000400 


9359* 


9366f 




KXTFLA 


A« 

01 7536 


8730 


9361* 


9366* 9374 


LF = 


000012 


8730« 


8731 




LIMITS 


006046 


87311 






LINE 


001 366 


87301 


8731* 


8816 8850 


LINEO 


001 504 


8730f* 






LINE1 


MM 4 C 4 ^ 

001516 


87301 






LINE10 


AA4 A 

001624 


87301 






LlNEII 


001636 


8730# 






L1NE12 


AA4 < C A 

001650 


8730# 






L1NE13 


AM4 M M. *\ 

001662 


87301 






LINEH 


001674 


87301 






LlNEiS 


WA4 

001 706 


87301 






LINE16 


AA4 9^ A 

001 720 


8730« 






LiNEir 


4^A4 9 

001732 


8730# 






LINE2 


001530 


87301 






L1NE3 


001542 


8730« 






LINE4 


001554 


87301 






LINE} 


001566 


87301 






a fl Air ^ 

LiNEo 


AAA X 

001600 


87301 






LINE 7 


001612 


87301 






LOBITS 


006124 


87S1f* 






LOCK 


AA4 VX J 

001364 


87301 


8731* 


8736* 8753 


LOLin 


AAX 4 4^ 

006116 


87311* 






LPRSET* 


4 A< i '^4 

104421 


87301 


8863 


8932 9008 


LPO « 


AAAAAA 

000000 


87S0f 






a M4 

LP1 « 


000001 


87301 






LP2 « 


AAAAAA 

000002 


8730f 






LPS * 


AAAAAV 

000003 


87301 




8753 8766 


NAINT s 


A AAA 4 A 

000010 


87301 


8731 


IIANTO 


AA4 ^ 4 A 

001510 


8730« 


8731 




M A Kl V 4 

NANT^ 


AA4 C 

001522 


8730f 






NANT10 


AA4 A VA 

001630 


87301 






NANT11 


AA4 X J t 

001642 


87301 






fUNT12 


A A 4 ^ f ^ 

001654 


87301 






NANT13 


AA4 A M^A. 

001666 


8730f 






NANT14 


AA4 9AA 

001 700 


8730f 






NANT15 


AA4 94 

001712 


8730# 






NANT16 


AA4 91/ 

001724 


87301 






M A&a V 4 9 

HANTl7 


AA4 WX. 

001736 


8730# 






NANT2 


AA€ C 

001534 


87S0# 






nANT3 




8730« 






RANT4 


001560 


87301 






HANTS 


001572 


87301 






nANT6 


001604 


8730« 






PIANT7 


001616 


87S0f 







SEQ 90 



8850 8869 8935 9014 9071 9100 9121 



9006* 9068* 
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SEO 91 



MASK s 


000200 


8730#* 


8731 


HASTEK 


010233 


8731 # 




HBADLN 


010346 


8730 


8731 # 


HCSRX 


010163 


8731 # 




HOATA 


010660 


8731# 




HE PASS 


010001 


8731 # 




HERRPC 


010313 


8731 # 




HERRX 


010210 


8731# 




HERRZ 


010041 


8731 # 




HFRS3 


010110 


8730 


8731 # 


HLOCK 


010134 


8730 


'*31# 
*31# 


HNEU 


010236 


8730 


HNTFL6 


001 (124 


A W A M 

8730# 


vVa ^ 

w '31* 
8731* 


nooE 


001 372 


8730* 


HPASSX 


010177 


8731 # 




HPFAIL 


007736 


8731 # 




MR 


010025 


8730 


87311 


HSENABs 


MAMA 4 A 

000040 


A^ V A M 

87301 


avc 9 

8753 


HTITLE 


AAA AAA 

001000 


A WA M 

8730# 




HTSTN 


010221 


O WA A 

87311 




HVECX 


A4 A4 ^4 

010171 


8731 # 




NEXT 


AAA 9^ ^ 

001362 


8730# 
8925* 


8731 

AAA^ ^ 

9006* 


NOLlSTs 




8726 




OODPARs 


AA A t A A 

000200 


8730# 


9075 


ONCSTQs 


A AAAAA 

000000 


8730# 




OVRRUNs 


A 4 AAA A 

040000 


a^VA A 

87301 




PAR 


A A 4 99A 

001 370 


a wam 

8730# 


8731* 


PARAM s 


4 A 4 < Af 

10440S 


a^VA A 

87301 


aW4 

8731 


PARAN1 


005766 


awa a 

8731# 




PARER s 


A4 AAAA 

010000 


A Wa m 

8730# 


9082 


PARERR 


AA^ 

006042 


8731 # 




PARlTYa 


AAA4 AA 

000100 


A W Am 

8730# 


9075 


PARMD * 


4 A « 4 4 ^ 

104415 


A^9 A M 

8730# 




PARO 


001 506 


A^V Am^ 

87S0#* 




PARI 


AA4 f t A 

001 520 


A WA M 

87301 




PAR10 


001626 


A4V Am 

8730# 




PAR11 


AAA « 4 A 

001640 


A WAm 

87301 




PARI 2 


AAA 4 9 A 

001652 


A W AM 

8730# 




PARI 3 


001664 


A W Am 

8730# 




PARK 


001676 


A^V Am 

8730# 




PARIS 


001 710 


A^ V Am 

8730# 




PARI 6 


AAA 

001722 


a wam 

87301 




PARI 7 


AAA W J 

001 734 


aWAA 

8730# 




PAR2 


A A A f V 1 

001532 


8730# 




PAR3 


AAA r M a 

001544 


aWA A 

8730# 




PAR4 


AAA 

001556 


aw Am 

8730# 




PARS 


001570 


a^VA A 

8730# 




PAR6 


AAA 4 At 

001602 


a wam 

8730# 




PAR/ 


AAA ^ A 4 

001614 


a WA A 

8730# 




PAWCH * 








PIRQ * 


177772 


87301 




PIROVC* 


000240 


8730« 




POPftO * 


012600 


87301 




P0P1SP« 


005726 


8730« 




P0P2SP« 


022626 


87301 


8731 



8736 



9100* 9116 9118 9123* 



8808 
8755 



8736* 
9067* 



8930 



8822 8887 9033 9080 9166 



8766 8779 8850 8868 8937 9013 9078 9100 9119 



8742* 8753* 8754* 8755* 8762* 8793* 8794* 8807* 8850* 
9100* 9111* 



8931* 8933* 8980 9074 9075* 9077* 



8861* 



8736 9100 9179 
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PRO = 
PR! 

PR2 X 
PR3 = 
PR4 > 
PRS s 
PR6 * 
PR7 » 
PS « 
PSy « 
PUSHRO« 
PUSH1S« 
PUSH2S* 
PVflVEC* 
RCVON « 
RDONE « 
REGIST 
RESREG 
RE STAR 
RESVEC> 
RES05 * 
RIE « 
RINGO > 
RING1 • 
RING2 « 
RINGS « 
RLO « 
RL1 « 
RL2 * 
RL3 « 
RUN 
SAVACT 
SAVL IN 

SAVNO 
SAVNUn 
SA^PC 
SAVOS « 
SAV30 
SAV32 
SCOPE « 

SC0P1 « 
SERV.G 
SCTAPl 
SEIFLG" 
SEVEN « 
SEVENS* 
SHIFT » 
SILOAL* 
SIL0EN» 
SIX * 
SIXS * 
SPACNT 
STACK s 
STICLNT« 



000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

177776 

010046 

005746 

024646 

000024 

010000 

000200 

001402 

007152 

011266 

000010 

104410 

000100 

000001 

000002 

000004 

000010 

000000 

000400 

001000 

001400 

001412 

001410 

001374 

001416 
001415 
001404 
104407 
002152 
002154 
000004 

104401 
007320 
011454 
104406 
000020 
000060 
104420 
020000 
010000 
000010 
000050 
006377 
001120 
177774 



8730« 

8730« 

8730« 

8730« 

8730f 

8730« 

8730* 

8730f 

8730« 

8730« 

8730« 

8730« 

8730« 

8730« 

8730« 

8730« 

87301 

8731* 

8731 # 

87301 

8730f 

8730» 

8730# 

87301 

8730# 

8730» 

87301 

87301 

87S0» 

8730» 

87S0f* 

8730»* 

87S0f 

9069* 

8730«* 

8730»* 

87301 

87S0» 

8730#* 

87301* 

87S0# 

8925 

87301 

87311 

8730* 

87301 

8730# 

87301 

8730# 

8730« 

8730« 

8730« 

8730« 

8731 f 

87301 

8730# 



8731* 

8931 

8755 



8731 
8753 



8766 8779 9100 9153 



8731* 










8731* 










8850* 


8864* 


8886 


8906* 


8927* 


9079 


9097* 


9100* 


9114t 


9167 


8731 










8731* 










8731* 










8731 










8731 










8731 










8731 


8736 


8742 


8753 


8754 


9006 


9067 


9100 


9111 




8736 


8753 


8754 


8838 


8846 


8731# 










8819 


8850 


8907 


9056 


9098 


8755 










8753 


8766 









9180* 



8992* 8996* 9009* 9017 
9299 9307 



9032 9055* 



8755 
8850 



8762 
8903 



8793 
8915 



8794 
9048 



8807 
9096 



8850 8861 



8731 
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STOP 


00U46 


8730» 


8731 


SVOS 


006134 


8731 « 




SUR 


001304 


8730#» 


8731* 


SUREG 


000176 


8730« 




SUO s 


000001 


8730« 




SUOO * 


000001 


8730# 




syoi « 


000002 


B730« 


8731 


SU02 « 


000004 


8730« 




SW03 * 


000010 


8730« 




SUOA * 


000020 


8730# 




SVOS ■ 


000040 


8730« 




SU06 « 


000100 


8730* 




SU07 * 


000200 


8730« 




SWOB « 


000400 


8730« 


8731 


SV09 « 


001000 


8730# 


8731 


syi " 


000002 


8730» 




SU10 « 


002000 


8730« 


8731 


syii ■ 


004000 


8730» 




syi 2 ■ 


010000 


8730» 


8731 


syi 3 « 


020000 


8730« 


8731 


syu a 


040000 


8730# 




syi 5 • 


100000 


8730f 




sy2 « 


000004 


8730f 




sy3 ■ 


000010 


8730# 




sy4 - 


000020 


8730# 




sys « 


000040 


8730« 




sy6 « 


000100 


87301 




sy7 « 


000200 


8730# 




SVB » 


000400 


8730# 




sy9 » 


001000 


87301 




S110 ■ 


001000 


8730# 




SI 200 « 


003400 


8730# 




S134 « 


001400 


8730f 




SI 50 ■ 


002000 


8730« 




SI 800 « 


004000 


8730# 




S19200* 


007400 


87301 




S2000 « 


004400 


8730« 




S2400 * 


OOSOOO 


8730« 




S500 « 


002400 


8730# 




S3600 « 


005400 


8730f 




S4800 * 


006000 


8730« 




S50 * 


000000 


8730# 




S600 ■ 


003000 


8730f 




S7200 » 


006400 


8730» 




S75 ■ 


000400 


8730« 




S9600 « 


007000 


87S0« 




TBITVE* 


000014 


87301 




TCRO * 


000001 


8730« 


8754 


TCR1 * 


000002 


87301 


8754 


TCR2 » 


000004 


8730f 


8754 


ICRS = 


OOOOiO 


orSOf 




TDO 


001426 


8730f 


8731 


T01 


001430 


87301 




T02 


001432 


8730» 




T05 


001434 


8730f 




fEICHT 


002106 


8730« 





9031 



9035 9049* 9100 
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If lUF 
■ * 1 *c 




87301 




TIF s 


www 


87301 

W' 


8753 


Truer « 


VrWWW 


8730# 

W" ^WW 




Tl ACT M 




8731 

wr W 1 


931 4# 


Tl 0 z 


000000 


87301 




Tl 1 s 


000400 


8730« 




TL? « 


001000 

WW 1 www 


8730# 

w» 






001400 

V W ' ~ WW 


8730# 

W" ^ w^ 






oo?oso 


8730# 

W" ^ W^ 




1 » * W V 


000064 

WWW Ww~ 


8730f 

W ' w ~ 






000034 


8730* 

w • ^ w ~ 




TRDV s 


100000 

■ www WW 


87301 


8755 




000014 

WWW 1 ~ 


8730« 




TRO 


001436 

WW 1 ~ w 


8730« 




TR1 


001440 


8730« 




TR2 


001442 


8730f 




TM3 


001444 


8730# 




TSEVEN 


002110 

WWfc ■ ■ w 


8730« 






002112 

WWW • ■ fc 


8730« 




TST1 


012272 


8731 


8736« 


TST10 


013426 


8793 


8794f 


TST11 


013512 


8794 


8807f 


TST12 


013706 

W • ^ • WW 


8807 


8850» 


TST15 


014040 


8850 


8861 « 


TSTH 


014330 


8861 


8925« 


TST15 


014652 


8925 


9006# 


TST16 


015142 


9006 


9067« 


TST17 


015344 


9067 


9100# 


TST2 


012462 


8736 


8742« 


TST20 


015740 


9100 


9111« 


TST21 " 


[} 


9111 




T$T3 


012526 


8742 


8753» 


TST4 


012704 


8753 


8754« 


TST5 


013110 


8754 


8755» 


TST6 


013212 


8755 


8762« 


TST7 


013342 


8762 


87931 


TTST 


004474 


8730* 


8731 « 


TyOSTO* 


000040 


8730« 




TVPOAT 


007140 


8731« 




TYPf * 


104402 


8730« 


8731 


TvmsG 


007030 

WW" WrfW 


8731 # 




T110 


002054 


8730« 




T1200 


002066 


8730# 




T13A 


002056 


8730« 




T150 


002060 


8730# 




T1800 


002070 


8730# 




T2000 


002072 


8730« 




T2400 


002074 


87301 




T300 


002062 


87301 




T3600 


002076 


8730» 




T4800 


002100 


8730« 




T50 


002050 


8730« 




T600 


002064 


8730« 




T7200 


002102 


87301 




175 


002052 


87301 




T9600 


002104 


8730f 





8766 



9100 9152 
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tnU)) KC'CnCri 


UFO = 


00004C 


8731 # 




UFDSET« 


000001 


8730# 




VECMP 


012102 


87314r 




vmoK 


0021 S6 


8730# 




URDCNT 


006374 


8731#* 




UTBS.P 


007126 


8731f 




XBX 


006716 


873U 




XCSR 


004432 


8731# 




XERR 


004454 


8731# 




XHEAD 


010320 


8730 


Of J iw 


XHTCNT 


001400 


8730» 




XHTLIN 


001376 


8730f 




XPASS 


004446 


8731« 




XSTATQ 


010410 


8730 




XTSTN 


007312 


8731# 




XVEC 


004440 


8731# 




XX s 


160210 


8730« 




YY « 


OOOSOO 


8730# 




22 » 


000020 


8730# 




SAPTHD 


001446 


8730# 




SASTATa 




8731 




tATYC 


00S360 


8731f 




SATY1 


005334 


8731# 




tATY5 


005342 


873 1# 




SATV4 


005352 


8731# 




SAUTOe 


001300 


8730f 




MASS 


001 1 74 


87301* 


8731* 9416 9418 


tSDAOR 


001266 


8730f 




MDOAT 


001272 


87301 




SCDU1 


001200 


8730# 


8731 


tC0W2 


001202 


8730# 


8731* 


KHARC 


005330 


8731 #• 




tCNTAG 


001244 


87301 




»C«1 « 


000006 


8730# 




tCM2 ■ 


OOOOU 


87301 




%cni ■ 


000006 


8730# 




tCM ■ 


000005 


8730f 




&CPUOP 


001146 


8730f 




SCRIP 


001357 


8730« 


8731 


SOOVO 


001204 


8730# 


8731 


SODWI 


001206 


87301 




toowio 


001230 


8730« 




SD0U11 


001232 


8730# 




I00W12 


001234 


8730« 




tOOWl3 


001236 


8730# 




lOOWU 


001240 


8730# 




toowis 


001242 


87301 




S00W2 


001210 


87301 




S00U3 


001212 


8750# 




tDPlMi 


001214 


8730# 




lOOWS 


001216 


8730* 




S00W6 


001220 


8730» 




S00W7 


001222 


8730# 




toows 


001224 


8730# 




S00W9 


001226 


8730f 




tOCVCT 


001130 


87501 


8731* 
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USER SYHBOLS 



SEQ 



•Ut Vn 


fVM17iL 


Of jU* 


R7X1* 

Or ^ 1 ■ 






Or J IV 




cc ■ 
»t ■ 


UUUUcc 


AAA<# 


Or 






OAAiUI 


TwOr • 




ww*»«i lO 


Or 


Or J 






O' J 1" 




•CNV 




R7^0« 

Or 


Or J 1 




VV 1 1 *t 1 


Or 


t7)1 

Or J 1 




vW"»C'»v 


or J 1 w 


9111 

▼ III 






Or J 1 w 






001747 

VV 1 • 


or ^vw* 


Qr w i 




001 

W 1 CQ 1 


87301 


8731 

or w 1 




WwvvC 


8730 

w* ^W 


8731 f 

or w 1 w 




001 ?62 


87301* 

W» JWW ■ 


8731* 

or w 1 




001 


8730# 

w > ^W* 




ftf ftl TL 


001 

W 1 c 


8730#* 

W r WWW ■ 


8731* 

Or w 1 




001140 


8730* 

wr VWW 






001 744 


R730# 

or jwv 






0011?? 


87301 

or ^wv 


8731* 

or w 1 




00S600 

WW ^ WW 


8731 #• 




IF I LLC 


001322 

WW t JCC 


8730f 


8731 

w w < 


ftF ILLS 


001321 

WW ■ • 


87301 


8731 

w > w ■ 


ftFLlP s 


177777 

1 f f ■ ■ f 


651 Sf 

• W^ 


8736# 

w ■ www 






88S0f 


88S1f 

www ■ w 




000002 

WWWWW& 


94341 


94SS 




001264 


8730# 

or ^Ww 




•www 1 


001270 

WW 1 t ■ w 


8730# 

O' JWw 






004406 


87311 






000001 

WWWWW I 


8730 

W > WW 






001446 

WW • ~~ w 


87301 

W ■ WW" 






001 2S0 

Ww V c ^w 


8730# 

W • WWW 


8731* 


fill UP 


007730 

WW' ' ^w 


87311 




tlNTAG 


001301 

wv ■ ^w ■ 


87S0f 

W • WW 


8731* 

WW* 




001260 

WW ■ &WW 


87301 

w ■ www 




001360 

WW I i#wW 


8730# 

or www 


8731 

W V i 


tLFLG 


005S77 

WW^ #■ ■ 


87311* 






001 2S2 

WW i ^ft 


8730#* 

w ■ www 


8731* 

wr w * 




001254 

WW t K 


87301 

W • WWW 






001 1S2 

WW 1 < 


8730# 

or www 






001 1S6 

WW I i #w 


87301 

W ■ WWW 






001162 

WW 1 V Wft 


8730# 

w ■ www 






001166 

WW 1 1 WW 


8730f 

or www 




MAIL 


001120 
VW < t cv 


8730# 

O" wWW 


8731 

O* W 1 


tMANSl 


0011 so 

WW • • #v 


87301 

w • www 






001 1S4 

VW • • #~ 


87301 

w ' www 




MMSS 


001160 

WW • 1 WW 


87301 

w • www 




ftHAnSi 


001164 

WW ■ • 


8730# 

or www 




iunt 


0O14S0 

WW ■ ^#w 


87301 

w f www 




MfLfi 


00SS76 

ww*# » w 


87311* 

W * W V w 


8731* 




001134 

WW • • 


8730# 

w ■ www 


SNSCLG 


001136 


8730* 


8731* 


afVswi T 


UWI lev 


Or }W 


•7Y1t 

Or 31" 


IMTTPI 


0011 SI 


87301 




f«TTf2 


001 1SS 


8730# 




SMTVPS 


001161 


8730« 




SMTVP4 


001 16S 


8730f 





87421 
9100f 



87S3« 
9111# 



8754« 87551 8762« 8793« 87941 8807f 8850« 8861 « 8925f 



8737# 
88601 



8741 » 
8918f 



87S3f 
8924f 



87S4# 
9000f 



87SSf 
900Sf 



87S6« 
90601 



8761 « 
9066« 



8793« 
9100« 



87941 
9102« 



8796« 
9110* 



880S« 
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87421 8755f 
8918 892Sf 



SMXCNT 


004724 


8751 « 






%H * 


000020 


6864« 


8756t 


8757 




88501 

9512 


8851 


88611 


tNULL 


001 320 


87301 


8751 




tlMTSTs 


000000 


8736# 


8742f 


8755# 






90671 


91001 


9111# 


tOVER 


004662 


8731 # 






SPASS 


001126 


8750«* 


8751* 




tPASTH 


001 4S4 


87501 






fPWRAO 


007724 


8751 « 






SPWRDN 


007564 


8750 


8751 « 




tPWRMG 


007720 


8751 f 






ipyRUP 


007636 


87511 






MUES 


001356 


8750« 


8751 




ME GAD 


001 324 


8750« 






ME GO 


001326 


8750» 


8751* 


9287 


MEG1 


001530 


87501 


8751* 


9285 


MEG2 


001332 


8750» 


8751* 




MEC3 


001334 


8750» 


8751* 




MEG4 


001336 


87501 


8751* 


9295 


MEGS 


001340 


8750« 


8751* 


9291 


MTNAO 


004430 


87511 






iSAVR6 


007734 


87511* 






SSCOPE 


004462 


87511 






f SETUP* 


000000 


8751 






fSVLAO 


004644 


87511 






tSVPC • 


017542 


8750« 


93641 


9459 


SSUR » 


164000 


6520# 


8750 


8751 






8861 


8925 


9006 


tSUREG 


001142 


87501 


8751 




iSWRMK' 


000000 


8751 






STESTN 


001124 


8750» 


8751* 




8TINCS 


001554 


8750# 


8751* 




STKB 


001312 


8750« 


8751 




tTKS 


001310 


8750« 


8751 




ftTNPO 


001342 


8750« 






iTMPI 


001344 


8750#* 


8751 






001346 


8750#* 


8731 




ftTNP5 


001350 


8750# 






$TNP4 


001352 


8750# 






ITN « 


000021 


87501 


87361 


87421 






9006# 


90674r 


9100« 


STPB 


001316 


8750« 


8731* 




STPFLG 


001323 


8750« 


8751 




STPS 


001314 


87501 


8731 




tTSTM 


001452 


8750# 






tTSTNM 


001246 


8750f* 


8731* 


8756* 






8925* 


9006* 


9067* 


»TTP€ 


005000 


8751« 






»TYP€C 


005212 


87511 






tTTPEM 


005532 


87511 






SUNIT 


001132 


87501 






SONITN 


001456 


8750« 






SUSUR 


001144 


8750f 






tVCCTI 


001170 


8730#* 


8751* 


9419 



9295 



9505 
9505 



8756 
9067 



8742 
9100 



6 8 

SEO 97 

USER SVNBOLS 

87541 8755f 8756 8762« 8795« 8794f 8796 8807« 
9000 90061 9060 9067# 9100» 9102 911 If 951U 

87621 87951 8794# 8807« 8850# 8861 f 8925ff 9006« 



8755 8754 8755 8762 8795 8794 8807 8850 
9111 



87S$i 87621 8793# 87941 8807« 8850« 8861 « 892S« 
8754t 8755* 8762* 8793* 8794* 8807* 8850* 8861* 
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H 8 

USER SYHBOLS 



SEO 98 



»VECT2 
tXOM ' 
tXON ' 
tXTSTR 
%1 » 
itOETd* 
UOCATs 

.AOVAN 

.BEGIN 

.BUFSE 

.CNVRT 

.CONVR 

.OCLAS 

.DELAY 

.DEVIC 

.ERRTA 

.INSTE 

.INSTR 

.1NST1 

.LFRSe 

.MSG 

.PARAM 

.PARMO 

.PAUCH 

.RE SOS 

.SAV05 

.SCOPC 

.SC0P1 

.SETFL 

.SHIFT 

.START 

.TRPSR 

.TRPTA 

.TYPt 

.SASTA> 

.tX > 



001172 
000023 
000021 
004S22 
000023 
000000 
• ••••• \) 

017542 
006476 
004152 
006566 
006224 
006220 
006444 
006456 
006424 
016302 
005706 
005602 
005622 
006526 
005624 
005726 
011432 
010542 
006166 
006126 
004462 
004726 
010422 
006510 
002116 
006402 
001742 
004752 

u 

0OU46 



8730« 

8731 

8731 

873U 

8730« 

8731« 

8731 

8730« 

8730 

8730« 

8730 

8730 

8730 

8750 

8730 

8730 

8731 

8730 

8730 

8731 « 

8730 

8731 »• 

8730 

8730 

8730 

8730 

8730 

8730 

8730 

8730 

8730 

8730# 

8730 

8730# 

8730 

8731 

8730« 



8731« 9126 
87311 

8731* 
8731 # 
8731« 
8731« 
8731 « 
8731 # 
9186# 
8731« 
8731« 

87311 

8731 # 
87311 
8731 « 
8731* 
8731 « 
8731 « 
87311 
8731 « 
8731 « 

8731f 
8731 
8731 # 



9129 9148 9168 9172 9364 9365« 9434 9439# 



1 
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I 8 
MACRO NAMES 



CQIWEN 

ENOCOM 

ESCAPE 

GETPRl 

GETSWR 

HULT 

NEUTST 

PASEND 
POP 

PRGEND 

PRGFRT 

PUSH 

REPORT 

SAVENT 

SC 

SCI 

SETPRI 

SETUP 

SKIP 

SLASH 

STARS 

SURSU 

TVPeiN 

TYPOEC 

TYPNAH 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

USORT 

sauFFE 

SCYCLE 

SEOP 

tGETFL 

tGETPA 

SMEAOE 

tINTSE 

tJUNK 

SLINEU 

SLVLTS 

SMRESE 

SfWRW 

SMRWD 

SMSG 

tSCOPE 

SSETFL 

SSTAG 

SSTAGF 

STCR 

STLINE 

STRPOE 

STSTN 



15581 

1570# 

16841 

13151 

17551 

4531« 

1616# 

9067 

6896» 

2127f 

7960« 

7046« 

2119» 

5477f 

1167« 

6835« 

6844« 

1284f 

1338« 

1717# 

15111 

1481* 

9006 

U51f 

2064# 

2034# 

1806# 

20011 

19541 

1917# 

1872« 

2838# 

69751 

76371 

691 6# 

67791 

67691 

6528« 

7022# 

7008« 

86111 

8649« 

6759f 

85441 

84941 

8624« 

69411 

685S« 

6785« 

7029* 

7016# 

84371 

85751 

6553# 

68671 

9100 



8730f 

8730« 

87301 

8730# 

8730« 

8730« 

87301 

9100 

8731 

87301 

8731 

8730 

8730# 

65191 

651 8f 

8731 

8731 

8730* 

8730* 

87301 

8730« 

8730* 

9067 

87301 

8730« 

8730« 

8730* 

87301 

8730« 

8730* 

8730« 

651 7f 

8731 

8731 

8731 

8730 

8730 

8730 

9100 

8730 

9100 

8755 
8753 
8793 
8731 
8731 
8731 
8887 

8754 
8850 
8730 
8736 
9111 



8736 
9111 

8731 



8731 

8730f 

8730 



8742 



8753 8754 8755 8762 8793 8794 8807 8850 8861 892S 9006 



8731 
9100 



8736 
9111 



8742 8753 8754 8755 8762 8793 8794 8807 8850 8861 



8925 



8731 



8731 



8794 

9033 9080 



9166 



8742 8753 8754 8755 8762 8793 8794 8807 8850 8861 8925 9006 9067 
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8741 8753 8754 8755 
9000 9005 9060 ^066 
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tUNlBU 


8395# 


8736 




tVARlA 


6566« 


8730 




sxz 


794 1# 


87)6 


8737 




8860 


8918 


8924 


StCHRE 


8730« 






tSCHTH 


8730« 






tSESCA 


1697# 


8730# 




SSNEWT 


1652# 


8730# 


8736 




9067 


9100 


9111 


SSSKIP 


1730# 


8730« 




.EQUAT 


191# 


651 8» 


8730 


.HEAOE 


67f 


651 7f 


8730 


.KTn 


333« 






.SETUP 


1213# 


6517« 




.SWRHl 


108« 






.UCT1 


5090# 


651 9# 


8730 


.tAPTB 


5133# 


651 9# 


8730« 


.$APTH 


5388« 


6519# 


8730 


.»APTy 


5560« 


6519# 


8731 


.SASTA 


5433# 






.SCATC 


91 7f 


651 7f 




.SCNTA 


1026« 


87301 




.SDB2D 


4726# 






.tOB20 


4847* 






.toiv 


4630* 






.SEOP 


2185* 


651 7f 


8731 


.KRRO 


2664# 


651 8# 




.URRT 


291 9# 






.SMULT 


4568# 




8731 


.iPOME 


4244* 


6518' 


.MANO 


4318# 






.MDOE 


391 8# 






.tRDOC 


3828# 






.MEAD 


34271 






.SR2AZ 


4988# 






.tSAVE 


3992# 






.SSB2D 


4809* 






.SS820 


4908t 






.tSCOP 


24191 


6518t 


8731 


.SSIZE 


4370# 






.SSOPR 


4945* 






.STRAP 


4093# 


651 8t 




.STYPS 


33211 






.tTfPO 


324 5t 






.»TYPE 


3005# 


651 7« 


8731 


.*TYPO 


3150# 






.UOCA 


955# 






.1170 


511f 






. ASS. 


017542 


ODD 





8742 8753 8754 8755 



ERROMS DETECTED: 0 
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SEQ 100 

MACRO NAHES 



8756 8761 8793 8794 8796 8805 8850 8851 
9100 9102 9110 



8762 8793 8794 8807 8850 8861 8925 9006 
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